我已经创建了一个Excel宏,在其中使用了Microsoft.Jet.OLEDB.4.0在Excel工作表上查询。
请注意:对我来说,让代码在“Windows 7”上正常运行是必须的。
在我的计算机上它完美地运行,但我的客户遇到了问题(请参见附带的屏幕截图)。
这里是连接对象的详细信息:
Dim cn
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0"
.Open
End With
请注意:对我来说,让代码在“Windows 7”上正常运行是必须的。