In diesem Beispiel wird die erste Abfragetabelle des ersten Tabellenblatts aktualisiert, falls die Tabelle auf einer Webseite basiert.
Set qtQtrResults = _ Workbooks(1).Worksheets(1).QueryTables(1) With qtQtrResults if .QueryType = xlWebQuery Then .Refresh End If End With