Hallo Mike,
Sub Import()
x = Sheets(1).UsedRange.Rows.Count 'die Variable x wird auf die erste Zeile nach dem bereits benutzten Bereich gesetzt
d = Dir("C:\VBA\Wolken\C*.txt") 'Die auszulesenden Dateien fangen alle mit "C" an
Do While d <> ""
Open "C:\VBA\Wolken\" & d For Input As #1
Do While Not EOF(1) 'solange das Dateiende nicht erreicht ist
Line Input #1, temp 'die nächste Zeile aus der Textdatei wird in die Variable temp abgelegt
Cells(x, 1) = Replace(temp, vbTab, ",") 'Tabulatoren in der Zeile werden durch Kommata ersetzt und in der Tabellenzelle Zeile x, Spalte A abelegt
Cells(x, 1).TextToColumns Destination:=Cells(x, 1), Comma:=True 'Text in Spalten
x = x + 1
Loop
Close #1
d = Dir
Loop
Ich hoffe das hilft weiter
Grüße Lutz
Sheets(1).UsedRange.Columns.AutoFit
End Sub
|