我正在尝试使用.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
我收到以下错误消息:
为什么即使在(C:\ Windows \ SysWOW64)中也未安装此提供程序,所以为什么:
我尝试通过单击cscript然后运行vbs来使用此 thread 。但是仍然出现相同的错误。