In diesem Beispiel wird eine neue Webabfragetabelle zu dem ersten Tabellenblatt der ersten Arbeitsmappe hinzugefügt und anschließend die Daten aus der ersten und der zweiten Tabelle in der Webseite importiert.
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 = xlNone .WebSelectionType = xlSpecifiedTables .WebTables = "1,2" .Refresh End With