AW: Mehrere Dateien auslesen
23.09.2004 10:20:05
Jan
Hallo Alex,
Zeichne am besten erst mal ein Makro auf, in dem Du eine Datei (Ich vermute ASCII / Text) so wie Du sie brauchst öffnest.
Mit "Alt + F11" wechselst Du dann in den Makro-Rekorder. Im Projekt-Explorer irgendwo in Modulx findest Du dann das, was Du aufgezeichnet hast, z.B. so was wie
Sub Makro1()
Workbooks.OpenText Filename:="C:\Stossdämpfer\Pulser_Ken\_Nr1.ken" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=True, Space:=False, Other:=False, DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
End Sub
Über die Zeile Workbooks.OpenText... setzt du dann z.B.
datName = Application.GetOpenFilename("Tabellen (*.txt;*.asc;*.ken),*.txt;*.asc;*.ken")
If datName = CStr(False) Then Exit Sub
Dann das "C:\Stossdämpfer\Pulser_Ken\_Nr1.ken" durch datName ersetzen, fertig.
In Excel kannst Du dann über rechts-Klick in die Menüleiste, Befehl "Anpassen" einen Makro-Button einfügen, und ihm das Makro zuweisen.
Hoffe, das hilft erst mal
Gruß
Jan