csv文件读错值

时间:2013-03-11 23:53:07

标签: excel vba

我有一个将CSV文件读入记录集的代码:

这是主要部分:

conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & Sheets("Reference").Range("DataSource").Value & ";" & _
         "Extended Properties=""text; HDR=Yes; FMT=Delimited; IMEX=1;""")
strSQL = "Select * from file.csv"
rsFutures.Open strSQL, conn

 vTemp = rsFutures("Start /Index")
 If Not IsNull(vTemp) Then cells(1,1) = vTemp

我有一个问题,文件中的值3S6S,记录集有36 ??? !!!! 怎么回事?

非常感谢所有想法。 感谢。

1 个答案:

答案 0 :(得分:0)

将来可能遇到类似问题的任何人,我的解决方案是创建Schema.ini文件,该文件立即处理记录集列类型。这是一个小样本:

[myfile.csv] 
Format=CSVDelimited 
ColNameHeader=True 
Col1=TR Char Width 255 
Col2=Book Char Width 255 
... 
ColN=Comment Char Width 255
CharacterSet=ANSI

只需将其保存在导出(或保存)csv文件的同一文件夹中即可。 祝你好运。

P.S。谢谢布拉德