防止在VBA中进行日期转换

时间:2012-03-22 09:16:17

标签: excel vba

我尝试从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

有没有办法阻止这种自动转换

感谢您的帮助

1 个答案:

答案 0 :(得分:0)

尝试使用Value2属性而不是ValueValue2忽略货币和日期数据类型,即没有任何格式。