4

我有一个 csv 文件，例如将数据如下 (a.csv) 转换为 Excel。

在第二列中，前导 0 被截断。

有没有办法在将 csv 导入 Excel 之前将第二列定义为文本？

我不想像许多解决方案中建议的那样将“`”或任何字符附加到第二列。

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

我有下面的代码。

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
4

2 回答 2

0

将单元格的格式更改为“文本”而不​​是“一般”或“数字”，Excell 将不理会它。

于 2012-11-03T21:23:21.803 回答
0

我不确定您从哪里尝试执行您的代码。这是您可以从 Excel VBA 执行的操作；从其他地方执行代码需要您的代码中已经提到的一些调整......

Sub importCSVFile()
Dim objWorkBook As Workbook
Dim myFile as String
srccsvfile = "C:\temp\a.csv"

Workbooks.OpenText Filename:=myFile, Origin:=-535, StartRow:=1, _
       DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
        Other:=True, OtherChar:=",", FieldInfo:=Array(Array(1, 1), Array(2, 2)), _
        TrailingMinusNumbers:=True

Set objWorkBook = ActiveWorkbook

'do something with active WorkBook

End Sub
于 2012-11-04T02:51:29.070 回答