Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Коллекция объектов 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 и обратная связь.