Konvertieren einer csv-Datei in Excel (mit Spalten als text) mithilfe von vba

Ich habe eine csv-Datei zum Beispiel sagen, mit Daten, wie weiter unten (ein.csv). Jetzt möchte ich umwandeln in excel
mit vba-Skript. Ich habe schon viele Lösungen hier und das problem ist in der zweiten Spalte die führende 0 immer abgeschnitten.Gibt es eine Möglichkeit zu definieren, die zweite Spalte als text vor dem Import der csv in excel. Ich will nicht mit Anhängen "" oder irgendein Zeichen, zur zweiten Spalte, wie vorgeschlagen, in viele Lösungen. Können Sie bitte ein Beispiel-code

a.csv
--------
123,001232323
456,004567772

Habe ich den untenstehenden code, aber es doenst Arbeit

srccsvfile = "C:\a.csv"
tgtxlsfile = "C:\a.xls"

'Instantiate Excel
Set objExcel = CreateObject("Excel.Application")


'open the CSV file

Set objWorkBook = objExcel.Workbooks.open(srccsvfile)

Set objWorksheet1 = objWorkbook.Worksheets(1)


objWorksheet1.Columns("A:I").AutoFit
objWorksheet1.Columns("B").NumberFormat="@"

'Save the file as excel workbook
objWorkBook.SaveAs tgtxlsfile, 39

'close workbook
objWorkBook.Close False
'quit excel
objExcel.Quit

'clean up
Set objWorkBook = Nothing
Set objExcel = Nothing
InformationsquelleAutor liju mathew | 2012-11-03
Schreibe einen Kommentar