ich hab eine Csv-Datei, die ich gerne per Makro in eine Excel-Datei umwandeln will. Hier sollen nur Kommas als Spaltentrennung dienen.
Kann mir jmd helfen?!
danke...
Sub Makro2()
datei = Application.GetOpenFilename("CSV-Dateien (*.csv), *.csv,Alle Dateien (*.*), *.*", , _
"Choose csv to import")
If datei = False Then
Exit Sub
End If
Workbooks.OpenText Filename:=datei, Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1)), TrailingMinusNumbers:=True
End Sub