Mehrere Dateien in Excel importieren

Computer: Software & Programmierung Office Software
1

Hallo,

ich möchte in Excel Dateien auswerten, die mir eine Simulation ausspuckt.
Die Dateien haben den Namen „Datei1.txt“, Datei2.txt", …, „Datein.txt“.

Gibt es eine Möglichkeit, diese Dateien nacheinander zu importieren, einzelne Werte in ein Extra-sheet zu kopieren und dann die nächste Datei importieren usw.?

Mein Ansatz ist ein langes Makro, in dem ich immer den Dateinamen ändere. Für 10 Dateien ist das kein (großes) Problem, aber bei mehreren hundert nervts.

Auch hatte ich mal eine Windows-batch Datei geschrieben, die immer die Dateien von „Datei1“ zu „Datei“ umbenannt hat und dann Excel aufgerufen hat. Excel spulte dann ein Makro ab mit import der umbenannten Datei, Werte überkopieren, alles eine Zeile nach unten setzen (für nächsten import), speichern, schließen, weiter.
Das kommt mir aber sehr unelegant vor…

Ideen?

Beste Grüße,
Jochen

2

Hab’s gerade selbst herausgefunden:

Dim i As Long
i = 1
Do Until i = 25
With ActiveSheet.QueryTables.Add(Connection:= _
„TEXT;c:\pfad\Datei“ & i & „.txt“, Destination:=Range( _
„A1“))
.Name = „Datei“ & i & „.txt“
…
Rest des imports, kopieren, formatieren, etc.
…

i = i + 1
Loop

Gruß,
Jochen