SQL 和 Power Pivot：如何在我的 SQL 代碼中使用 Excel 中的單元格值？

Question

我正在使用 Excel 2016 和 Power Pivot。 我有 SQL 代碼可以從 Oracle 數據庫中減去一些數據。 我的 SQL 代碼位於Power Pivot > Manage > Design > Table Properties 中。 它運行良好。 我不明白我的設置，但它有效。

但是我想從我的 Excel 工作簿中控制我的代碼。 例如假設我的代碼是這樣的：

select * 
from my_scheme.my_table
where date = '20200101'

基本上我希望將date變量設置為某個單元格值。 我怎樣才能做到這一點？

Answer 1

我遇到了同樣的問題，最后我放棄了 powerpivot/powerquery 的東西，並通過 ADODB.Connection 實現了動態查詢，例如：

Sub test()

'Microsoft ActiveX Data Objects x.x library required
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Server_Name = "" ' Enter your server name here
Database_Name = "" ' Enter your database name here
User_ID = "" ' enter your user ID here
Password = "" ' Enter your password here
SQLStr = "" ' Enter your dynamic SQL here

cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"

rs.Open SQLStr, cn
'rownames
fldCount = rs.Fields.Count
For iCol = 1 To fldCount
    ActiveSheet.Cells(1, iCol).Value = rs.Fields(iCol - 1).Name
Next
'body
ActiveSheet.Cells(2, 1).CopyFromRecordset rs

end test