Eine Auflistung von QueryTable-Objekten. Jedes QueryTable-Objekt stellt eine Tabelle eines Tabellenblattes dar, deren Daten aus einer externen Datenquelle zurückgegeben werden.
Verwendung der QueryTables-Auflistung
Verwenden Sie QueryTables-Eigenschaft, um auf die QueryTables-Auflistung zuzugreifen. Im folgenden Beispiel wird die Anzahl der Abfragetabellen des aktiven Tabellenblattes angezeigt.
MsgBox ActiveSheet.QueryTables.Count
Verwenden Sie die Add-Methode, um eine neue Abfragetabelle zu erstellen und sie der QueryTables-Auflistung hinzuzufügen. Im folgenden Beispiel wird eine neue Abfragetabelle erstellt.
Dim qt As QueryTable sqlstring = "select 96Sales.totals from 96Sales where profit < 5" connstring = _ "ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales" With ActiveSheet.QueryTables.Add(Connection:=connstring, _ Destination:=Range("B1"), Sql:=sqlstring) .Refresh End With