QueryTables コレクション オブジェクト

QueryTables コレクション オブジェクト

Worksheet QueryTables QueryTable 複数のオブジェクト

QueryTable オブジェクトのコレクションです。各 QueryTable オブジェクトは、外部データ ソースから返されるデータに基づいて作成されるワークシート テーブルを表します。

使い方

QueryTables コレクションを取得するには、QueryTables プロパティを使用します。次の使用例は、作業中のワークシートのクエリ テーブルの数を表示します。

MsgBox ActiveSheet.QueryTables.Count
		

Add メソッドを使用して新しいクエリ テーブルを作成し、これを QueryTables コレクションに追加します。次の使用例は、新しいクエリ テーブルを作成します。

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