我正在尝试使用 ADO 连接从关闭的 Excel 2007 工作簿 (.xlsx) 复制数据。
我有连接字符串工作。但是,当我尝试打开记录集中的命令(倒数第二行)时,出现自动化错误。
这在下面的代码中可能不太清楚,所以:
“wsSummary”是一个工作表对象
“strSourceFile”是一个字符串,其中包含我需要复制的目标数据(例如Template.xlsx)
strSourceFile = wsSummary.Cells(nFirstRow + 4, 7)
strSheetSource = "Sheet1"
strSQL = "SELECT * FROM [" & strSheetSource & "]"
Set dbConnection = New ADODB.Connection
With dbConnection
.Provider = "Microsoft.ACE.OLEDB.12.0;"
.connectionString = "Data Source=" & strPOINTDataPath & strSourceFile & _
";Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
.ConnectionTimeout = 40
.Open
End With
If dbConnection = "" Then GoTo ErrorText
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = dbConnection
.CommandText = strSQL
End With
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = dbConnection
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmd
End With
我想你错过了$ character
在你的 SQL 语句中。尝试将适当的行更改为这一行:
strSQL = "SELECT * FROM [" & strSheetSource & "$]"
或改变strSheetSource variable
进入这个:
strSheetSource = "Sheet1$"
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)