|
Hallo Lutz,
abermals danke! Ich habe zwei Sachen angepasst und nun funktioniert zumindest das Auslesen der Dateien. Der Code ist:
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)
Line Input #filno, temp
sh.Cells(x, 1) = Replace(temp, vbTab, ",")
x = x + 1
Loop
Close #filno
D = Dir
Worksheets(i).UsedRange.Columns.AutoFit 'Optimale Spaltenbreite setzen
i = i + 1
If i > Worksheets.Count Then _
Worksheets.Add after:=Worksheets(i - 1) 'Worksheet anfügen, wenn alle gefüllt sind
Loop
End Sub
Danke dafür!
Die Text-In-Spalten-Funktion verursacht mir immer einen Laufzeitfehler "1004". Ich habe aber keinen Plan, woran es liegen kann. Ich habe alle möglichen Varianten für die TISFunktion, die ich im Netz finden konnte probiert, aber alle führen zum selben Fehler...
Kann es daran liegen, dass die Zelle X in Spalte A bereits belegt ist?:
sh.Cells(X, 1).TextToColumns Destination:=sh.Cells(X, 1), Comma:=True
Gruß und Dank
Mike
|