Import von CSV Datei in Arbeitsmappe
25.11.2017 22:17:58
CSV
ich habe im Internet schon viel gesucht aber nicht wirklich was gefunden.
Ich möchte gerne eine CSV Datei importieren.
Ich habe aber das Problem das die CSV Datei mit diesem Code:
Sub einlesen()
Z = Sheets(1).UsedRange.Rows.Count
Open "C:\Users\Desktop\dateixyz.csv" 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
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
zwar eingelesen wird aber alles nur in einer Zeile dargestellt wird und dort wo die nächste Zeile anfängt schreibt er mir in eine Zeile:
und das sieht dann so aus:
Typ
1
aber wie gesagt in einer Zelle.
Gibt es einen Befehlt um in der nächsten Zeile bei Alt+Enter anzufangen ?
Ach ja und noch eine Entdeckung die ich gemacht habe ist:
wenn ich es mit dem Makrorekorder aufzeichne schiebt er die Daten in die richtigen spalten und zeilen.
Leider kann ich den Rekorder nicht nutzen da er eine Datenverbindung erstellt die ich dann nicht gebrauchen kann.