In diesem Beispiel wird eine neue Webabfragetabelle zum ersten Tabellenblatt der ersten Arbeitsmappe hinzugefügt, die gesamte Formatierung der Daten in der Webseite importiert und anschließend die Abfragetabelle aktualisiert.
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebFormatting = xlAll
.Refresh
End With