Office: csv-Datei mit VBA öffnen - führende Nullen fehlen

Hallo, ich will eine csv Datei die mit Semikolon getrennt ist mit einem Makro öffnen. In dieser csv Datei befinden sich Zellen die mit Nullen beginnen zB.: 0005674;000000934
Wenn ich die Datei mit folgendem Code öffne, wird ordentlich nach Semikolon getrennt, aber die führenden Nullen sind weg- und die sind wichtig.

Code:

 Workbooks.OpenText Filename:=(strSavePfad & strCSVName & ".csv"), DataType:=xlDelimited, Semicolon:=True, Local:=True

Wie kann ich die Datei öffnen ohne das mir die Nullen abhanden kommen? Danke

Ich benutze Excel 2010

 

Hallo Marius,

wenn du die OpenText-Methode verwenden willst, dann bleibt dir wohl nur die Formatierung der Zahlen (Zahlenformat) über. Oder du importierst die csv-Datei und legst beim Import fest, dass die entsprechende Spalte Text und nicht Zahlen enthält. Die Datenquelle muss natürlich auch korrekt formatiert sein ...

 

Wenn ich die VBA Excel Hilfe richtig verstehe, kann ich auch mit der Open Text Methode die csv Datei öffnen und mit der FieldInfo das Spalten Format bestimmen. Leider klappt aber auch das nicht. Hier mein überarbeiteter Code:

Code:

Workbooks.OpenText ("d:\Mappe1.csv"), DataType:=xlDelimited, FieldInfo:=Array(2, 2), Semicolon:=True, Local:=True</SPAN></SPAN>