CSV import und in Spalten
15.05.2020 15:17:17
Jürg
Lange nur Leser und Abgucker doch jetzt ist der Punkt gekommen an dem ich Euer Schwarmwissen benötige.
Ich möchte mit meinem Makro CSV Dateien importieren und die Daten immer in die erste freie Zeile einfügen. Gleichzeitig möchte ich die Funktion TextToColumns einbauen. An diesem Punkt scheitere ich.
Hier mein Makro, mit dem ich CSV Dateien wie gewünscht in die erste freie Zeile einfügen kann. An diesem Makro möchte ich nun die Funktion Text in Spalten einbauen. Trennzeichne sollen "_" und "," sein. Wo kann ich das einfügen?
Dim varFileToOpen As Variant
varFileToOpen = Application.GetOpenFilename("CSV Dateien (*.csv), *.csv")
If varFileToOpen = False Then Exit Sub
If varFileToOpen "" Then
Application.ScreenUpdating = False
Open varFileToOpen For Input As #1
arrDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 0 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), cstrDelim)
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, 2)
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End If