我正在尝试在具有以下查询的数据库上连接 excel。
SELECT * FROM Products WHERE Order = [Enter Order]
但 excel 似乎找不到这个查询。它只显示实际表和其他不使用参数的查询。
有没有办法在使用参数的查询上连接 excel?我正在使用 MS-Excel 2007。
一些笔记。
“必须在 Microsoft Query 中创建参数查询。”
自定义参数查询
使用 Microsoft Query 检索外部数据
ADODB 和 VBA
''Ref: Microsoft ActiveX Data Objects x.x Library
Dim cmd As New ADODB.Command
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim prm As ADODB.Parameter
Dim strConn As String
strConn = "Provider = Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=z:\docs\test.accdb"
conn.Open strConn
cmd.ActiveConnection = conn
cmd.CommandText = "Query4"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("EnterText", adVarWChar, adParamInput, 50)
cmd.Parameters.Append prm
cmd.Parameters("EnterText").Value = ActiveWorkbook.Sheets("Sheet5").[A2]
'Execute the Stored Procedure
Set rs = cmd.Execute
ActiveWorkbook.Sheets("Sheet8").Cells(2, 1).CopyFromRecordset rs
'Close the connection
conn.Close