Hallo Lutz,
abermals danke! Ich habe zwei Sachen angepasst und nun funktioniert zumindest das Auslesen der Dateien. Der Code ist:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Sub Import()
Dim sh As Worksheet
D = Dir( "C:\VBA\Wolken\C*.txt" )
i = 1
Do While D <> ""
Set sh = Worksheets(i)
sh.Cells.ClearContents
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
i = i + 1
If i > Worksheets.Count Then _
Worksheets.Add after:=Worksheets(i - 1)
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
|