Ich möchte mehrere .txt Dateien in eine Mappe einlesen, wobei das Zeichen "|" als Separator definiert ist. Mit folgendem Makro gehts für eine Datei:
Sub TextImport3()
Dim intRow As Integer, intCol As Integer
Open "c:\temp\100.txt" For Input As #1
Dim txt As String
Do Until EOF(1)
Line Input #1, txt
intRow = intRow + 1
Do Until txt = ""
intCol = intCol + 1
If InStr(txt, "|") Then
Cells(intRow, intCol) = Left(txt, InStr(txt, "|") - 1)
txt = Right(txt, Len(txt) - InStr(txt, "|"))
Else
Cells(intRow, intCol) = txt
txt = ""
End If
Loop
intCol = 0
Loop
Close
End Sub
Wie bringe ich das Makro dazu, dass alle Dateien aus C:\Temp untereinander in die gleiche Mappe eingelesen werden?
Vielen Dank!
Patrick