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
- ich denke, dieser link wird Ihnen helfen, vbaexcel.eu - /vba-makro-code/...
Du musst angemeldet sein, um einen Kommentar abzugeben.
Ändern Sie die Zelle format "text" ist, sondern als 'Allgemeine' oder 'Zahl' und Excell lassen es allein.
Ich bin nicht sicher, von wo aus Sie versucht, zum ausführen Ihres Codes. Hier ist, was Sie tun konnte, aus Excel VBA; ausführen von code von anderswo würde erfordern einige tweaks bereits erwähnt, im code...