Hallo Mike,
probier doch mal dieses:
Sub Import()
Dim sh As Worksheet
D = Dir("C:\VBA\Wolken\C*.txt") 'Die auszulesenden Dateien fangen alle mit "C" an
i = 1
Do While D <> ""
Set sh = Worksheets(i) 'Nächstes Tabellenblatt auswählen
sh.Cells.ClearContents 'Alle Einträge im Worksheet löschen
X = 1
filno = FreeFile
Open "C:\VBA\Wolken\" & D For Input As #filno
Do While Not EOF(1) 'solange das Dateiende nicht erreicht ist
Line Input #filno, temp 'die nächste Zeile aus der Textdatei wird in die Variable temp abgelegt
sh.Cells(X, 1) = Replace(temp, vbTab, ",") 'Tabulatoren in der Zeile werden durch Kommata ersetzt und in der Tabellenzelle Zeile x, Spalte A abelegt
sh.Cells(X, 1).TextToColumns Destination:=sh.Cells(X, 1), Comma:=True 'Text in Spalten
X = X + 1
Loop
Close #filno
D = Dir
Worksheets(i).UsedRange.Columns.AutoFit 'Optimale Spaltenbreite setzen
i = i + i
If i > Worksheets.Count Then _
Worksheets.Add after:=Worksheets(i - 1) 'Worksheet anfügen, wenn alle gefüllt sind
Loop
End Sub
Gruß Lutz
|