ADODB连接不适用于Excel 32位

时间:2019-07-14 16:02:18

标签: excel vbscript oledb qtp adodb

我正在尝试使用.VBS中的以下代码从Excel中获取值:

strScenarioSheet = "D:\User.xlsx"
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    strScenarioSheet & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""
strSQL_TC = "Select * from [TestCases$] where [Flag]='Y'"
Set objTot = getRecords(strConnection,strSQL_TC)
MsgBox objTot.RecordCount

Function getRecords(strConnection,strSQL_TC)
    Set objConn = CreateObject("ADODB.Connection")
    objConn.Open strConnection
    Set objRec = CreateObject("ADODB.Recordset")
    objRec.CursorLocation = 3
    objRec.Open strSQL_TC,strConnection
    objRec.ActiveConnection = Nothing
    Set getRecords=objRec.Clone
    objConn.Close
    Set objConn = Nothing
    objRec.Close
    Set objRec = Nothing
End Function

我收到以下错误消息:

enter image description here

为什么即使在(C:\ Windows \ SysWOW64)中也未安装此提供程序,所以为什么:

enter image description here

我尝试通过单击cscript然后运行vbs来使用此 thread 。但是仍然出现相同的错误。

0 个答案:

没有答案