Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: QueryTables-Auflistungsobjekt

Worksheets-Auflistung (Worksheet-Objekt)
QueryTables-Auflistung (QueryTable-Objekt)
Parameters-Auflistung (Parameter-Objekt)

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