mehrere Textdateien in eine Tabelle einlesen
20.02.2004 07:36:38
krawudsky
Kann mir jemand helfen?
Mein Problem: Ich möchte mehrere Textdateien in ein Tabellenblatt einlesen.
Momentan bin ich soweit, dass mir jede Textdatei in einem extra worksheet geöffnet wird.
mein bisheriger code:
Sub Texteinlesen()
Dim Pfad$
Pfad = Application.GetOpenFilename(fileFilter:="Textdateien (*.txt), *.txt")
If Pfad = "Falsch" Then Exit Sub
Workbooks.OpenText FileName:=Pfad, DataType:=xlDelimited, semicolon:=True
End Sub
Danke im voraus