WorkbookConnection Type 5 - xlConnectionTypeWEB

[Rolf Beißner]

Hallo Forum,

das Auslesen des Connection Strings einer ODBC-Abfrage (Type = 2) ist kein Problem:

z.B. constring = ActiveWorkbook.Connections("Wertpapier_Abfrage").ODBCConnection.Connection

Bei einer Abfrage vom Type 5  (xlConnectionTypeWEB) bekomme ich es nicht hin.
Für eine diesbezügliche Lösung wäre ich sehr dankbar.

FG Rolf

[Rolf Beißner]

Hallo Forum,

nach etlichen Versuchen habe ich eine ziemlich umständliche, aber funktionierende "Lösung" gefunden.

FG Rolf

'Connectionstring einer WEBAbfrage ermitteln
Sub getConstringFromQT()
    Dim con As WorkbookConnection
    Dim qt As QueryTable
    Dim ws As Worksheet
   
    For Each con In ActiveWorkbook.Connections
        For Each ws In ActiveWorkbook.Worksheets
            For Each qt In ws.QueryTables
                If con.Type = xlConnectionTypeWEB Then
                    If con.Name = qt.WorkbookConnection.Name Then
                        Debug.Print con.Name, qt.Name, qt.Connection
                    End If
                End If
            Next qt
        Next ws
    Next con
End Sub