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