更改连接类型-VBA

Question

我正在建立与查询的连接，该查询将查看选定的单元格，然后根据该条件进行过滤。现在，使用我的代码，我在以下代码行上收到“运行时错误'1004'：应用程序定义的错误或对象定义的错误”：“使用ActiveWorkbook.Connections（“查询来自Knowledge4”）。OLEDBConnection“。连接类型是数据库查询。

我尝试更改连接类型（例如ODBCConnection），但是仍然出现错误

Private Sub Button1_Click()
Dim Sty As String

Sty = Sheets("Item History - Style").Range("F2").Value


With ActiveWorkbook.Connections("Query from Knowledge4").OLEDBConnection
.CommandText = "SELECT *, Website_URL_Prod_Base + krs.Style as ProductLink 
FROM Knowledge.dbo.Knowledge_Reports_Style krsm join  Knowledge_Defaults 
kd on krs.Book = kd.Book where PageLogic IN ('CORE','INSERT') AND 
krs.Style = (" & Sty & ")"
ActiveWorkbook.Connections("Query from Knowledge4").Refresh
End With
End Sub

我希望能够基于选择进行数据透视表过滤，并最终将结果链接到另一张纸上的另一个数据透视表。