Power Query, Alle Datenquellen aktualisieren

Alle Datenquellen beim Öffnen der Excel Arbeitsmappe aktualisieren

Alle Datenquellen oder Datenquellen selektiv öffnen mit VBA

---- SCHNIPP ---

Public Sub UpdatePowerQueries()
' VBA um Datenquellen zu aktualisieren
Dim lngPowerQuery As Long, objDataSource As WorkbookConnection
Dim objWorksheet As Worksheet

On Error Resume Next

For Each objDataSource In ThisWorkbook.Connections
    'Arbeitsmappenabfrage = Power Query ?
    lngPowerQuery = InStr(1, objDataSource.OLEDBConnection.Connection, "Provider=Microsoft.Mashup.OleDb.1", vbTextCompare)
        If Err.Number <> 0 Then
            Err.Clear
            Exit For
        End If
'Power Query ? Datenquelle aktualisieren
'Variante 1 - Alle Datenquellen aktualisieren
If lngPowerQuery > 0 Then objDataSource.Refresh

'Variante 2 - selektiv Datenquellen aktualisieren
Select Case objDataSource.Name
    Case "Abfrage - Liste_Funktionen"
        objDataSource.Refresh
    Case Else
End Select

'Arbeitsmappenabfrage Name im Debugger ausgeben
Debug.Print objDataSource.Name

Next objDataSource

End Sub

--- SCHNAPP ---