【发布时间】:2015-05-29 14:57:21
【问题描述】:
我已连接到充当数据库的 Excel 工作表。我需要选择一些具有 where 条件的记录,但出现错误:
没有为一个或多个必需参数指定值
使用以下代码:
Dim conn As Object
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set conn = CreateObject("ADODB.Connection")
XLName = "C:\Users\X\Desktop\rawdata.xlsx"
connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" &
XLName & "';Extended Properties='Excel 12.0;HDR=NO;IMEX=1';"
conn.Open connString
rs.Open ("SELECT * FROM [data$] where industry='Government'"), conn,
adOpenDynamic, adLockReadOnly
Sheet1.Range("A2").CopyFromRecordset rs
rs.Close
conn.Close
【问题讨论】:
-
您确定“下面的代码”与您在 Visual Basic 编辑器中的完全相同吗?因为如果没有
_行继续,该代码将无法编译。