QueryTables 集合对象

Worksheets (Worksheet) QueryTables (QueryTable) Parameters (Parameter)

QueryTable 对象的集合。每个 QueryTable 对象代表一张由外部数据源返回的数据建立的工作表。

QueryTables 集合的的用法

可用 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