VBA Code Text Dateien
22.10.2014 12:13:22
Igor
nochmals eine kurze Frage. Ich möchte mehrere txt. Dateien in excel einlesen. Dazu habe ich folgenden Code gefunden:
Sub einlesen()
Z = Sheets(1).UsedRange.Rows.Count
d = Dir("C:\Users\AMD\Desktop\Test\")
Do While d ""
Open "C:\Users\AMD\Desktop\Test\" & d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Sheets(1).Cells(Z, 1) = Replace(temp, vbTab, ";")
Z = Z + 1
Loop
Close #1
d = Dir
Loop
For j = 1 To Z
Text = Split(Cells(j, 1), ";")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
Hierzu zwei Fragen:
1.
Ich möchte kein fixen Verweis ("C:\Users\AMD\Desktop\Test\") sondern immer die Text Dateien einlesen, die sich im selben Ordner befinden wie das Excel-Sheel indem ich es einlesen möchte
2. Wenn ich den Code oben ausführe und die Daten lösche und den Code erneut ausführe dann fängt er nicht die Daten in der ersten Zelle einzulesen, sondern fängt beim letzten Platz vom ersten Durchlauf an.
Kann mir jemand hier vielleicht helfen?
Danke Igor