使用 VBA 更新和现有 OLEDB 连接

Question

我正在尝试使用可修改的脚本更新电子表格中的现有连接。

基本上，我希望用户能够放入帐户参考列表，按下按钮，Excel 会在这些帐户参考与我们拥有的系统匹配的地方输出 SQL 输出。

我已设法将所有脚本整理到一个单元格中（我的“工作”选项卡上的 F1），这一切都很好，我已经添加了初步连接（并将其称为“CustomerContactDetails”）。

我也启用了 Microsoft ActiveX Data Objects 6.1 Library。

我的 VBA 脚本是：

Sub UpdateScript()

Dim Script As String

SQLScript = Worksheets("Workings").Range("F1").Value

ActiveWorkbook.Connections("CustomerContactDetails").OLEDBConnection.ConnectionString = SQLScript
ActiveWorkbook.Connections("CustomerContactDetails").Refresh

End Sub

我在下面的第四行得到错误 (ActiveWorkbook.Connections("CustomerContactDetails").OLEDBConnection.ConnectionString = SQLScript)：

运行时错误“9”； 下标超出范围

请问有谁知道如何解决这个问题？感觉好像我并没有那么远，我也不想做任何太复杂的事情。我似乎无法让它工作！

Answer 1

试试这样，看看你得到什么输出

Sub UpdateScript()

    Dim Script As String
    Dim conn as WorkbookConnection

    For Each conn in ActiveWorkbook.Connections
        Debug.Print conn.Name
        If conn.Name = "CustomerContactDetails" Then
            SQLScript = Worksheets("Workings").Range("F1").Value
            conn.OLEDBConnection.ConnectionString = SQLScript
            conn.OLEDBConnection.Refresh
        End If 
    Next conn
End Sub

编辑：看起来你拥有的是WorkbookQuery 我创建了一个（到 Oracle 数据库），您可以像这样访问和修改它：

Sub Tester()
    
    Dim q As WorkbookQuery, lo As ListObject
    
    Set lo = ActiveSheet.ListObjects("Query1")
    
    Debug.Print ActiveWorkbook.Queries.Count
    Set q = ActiveWorkbook.Queries("Query1")
    
    Debug.Print q.Formula
        
    'revise query
    q.Formula = "let" & vbCrLf & _
       " Source = Oracle.Database(""BLAH"", [HierarchicalNavigation=true," & _
       "Query=""select * from table1""])" & _
       vbCrLf & "in" & vbCrLf & "Source"
    
    lo.Refresh 'I got a popup "do you want to run this?" here...
    
End Sub

请注意，在创建您无法修改的对象类型时尝试录制宏几乎总是有用的 - 这将指向您需要的语法。