Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Eine Auflistung von QueryTable-Objekten .
Hinweise
Jedes QueryTable-Objekt stellt eine Tabelle eines Arbeitsblatts dar, deren Daten aus einer externen Datenquelle zurückgegeben werden.
Beispiel
Verwenden Sie die QueryTables-Eigenschaft des Worksheet-Objekts , um die QueryTables-Auflistung zurückzugeben.
Im folgenden Beispiel wird die Anzahl der Abfragetabellen im aktiven Arbeitsblatt angezeigt.
MsgBox ActiveSheet.QueryTables.Count
Verwenden Sie die Add-Methode, um eine neue Abfragetabelle zu erstellen und 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
Methoden
Eigenschaften
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.