我尝试从en excel文件中读取数据以将它们插入表中。 我有一个一般格式化的列,它可以包含任何东西。测试验证是通过代码完成的。我的问题是,当我读取一个整数/双,23例如,它转换为1900-01-22,这在我的情况下不是逻辑。 以下是我的连接和从excel读取的代码
Dim rsExcel As Object
Set cnnExcel = CreateObject("ADODB.Connection")
Set rsExcel = CreateObject("ADODB.RecordSet")
With cnnExcel
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=D:\Query1.xls;Extended Properties=Excel 8.0"
.CursorLocation = 3
.Open
End With
rsExcel.Open "SELECT * FROM [Sheet 1$]", cnnExcel
' to read the column
rsExcel.Fields(3).Value
有没有办法阻止这种自动转换
感谢您的帮助
答案 0 :(得分:0)
尝试使用Value2
属性而不是Value
。 Value2
忽略货币和日期数据类型,即没有任何格式。