Dateien mit Makro-Schleife importieren
14.10.2003 14:54:01
mika
Hallo zusammen,
ich möchte verschiedene Dateien mit dem Import-Assistenten in eine Datei importieren.
Die Dateien haben alle den Dateinamen 09101-01.*.
Jede liegt in einem Ordner mit dem jeweiligen Datum z.B. 20031001.
Für den Import habe ich ein Makro aufgezeichnet.
Wie kann ich hierein eine Schleife einbauen, so dass die Dateien automatisch geöffnet werden??
Gruß,
Mika
Code:
Workbooks.OpenText Filename:= _
"D:\X\20030413\09101-01.XLS", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _
:=True