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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen