Объект QueryTables (Excel)
Коллекция объектов QueryTable .
Каждый объект QueryTable представляет таблицу листа, созданную на основе данных, возвращаемых из внешнего источника данных.
Используйте свойство QueryTables объекта Worksheet , чтобы вернуть коллекцию 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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.