CSV mit Makro öffnen...klappt nicht so ganz

[OoDex]

Guten Tag,

öffnet man eine CSV per Doppelklick, dann klappt alles wunderbar - alles steht in Spalte A und man muss nur noch per Text in Spalten das Ganze aufbereiten.
Öffne ich es per Makro Workbooks.Open Filename:="xxx.CSV" oder

Code:

Set wBook = Workbooks.Open(Path & File2, Format:=6, Delimiter:=";")

dann trennt er automatisch nach Komma auf. Mir geht es auch nicht darum, dass er direkt nach Semikolon auftrennen soll, er soll es einfach so öffnen, wie wenn ich es öffne - nichts an der Formatierung soll sich ändern.

Grüße,
Dex

[BoskoBiati]

Hi,

warum nicht so:

Code:

Set wBook = Workbooks.Open(Path & File2, Format:=6, Delimiter:=",")

oder so:

Code:

Set wBook = Workbooks.Open(Path & File2, Format:=2)

oder besser noch:

Code:

Set wBook = Workbooks.Open(Path & File2, Format:=5)

[Jockel]

Guten Tag,

öffnet man eine CSV per Doppelklick, dann klappt alles wunderbar ...
Grüße,
Dex

Hallo, man öffnet keine csv-Datei...!!!!! Man importiert sie..!!! Und das kann man auf verschiedenste Weise tun. Auch ohne Makro. Z.B mit Power Query...

[OoDex]

Code:

Set wBook = Workbooks.Open(Path & File2, Format:=6, Delimiter:=",")

Die CSV ist mit ";" separiert, er macht es automatisch beim Öffnen über VBA per Komma separiert, was dann die Zahlen durcheinander bringt. Deshalb "Delimiter:=";", allerdings hat es nichts gebracht

Code:

Set wBook = Workbooks.Open(Path & File2, Format:=5)

Der Code hat geklappt, vielen Dank! 
Meine Lösung war die CSV-Datei einfach in eine .xls-Datei umzuschrieben (Name Path & "File to File.csv" As Path & "File to File.xls", was auch funktioniert hat, allerdings ist deine Lösung da um ein vielfaches eleganter :)!