Compartilhar via


Objeto QueryTables (Excel)

Uma coleção de objetos QueryTable .

Comentários

Cada objeto QueryTable representa uma tabela de planilha construída com base em dados retornados de uma fonte de dados externa.

Exemplo

Use a propriedade QueryTables do objeto Worksheet para retornar a coleção QueryTables .

O exemplo a seguir exibe o número de tabelas de consulta na planilha ativa.

MsgBox ActiveSheet.QueryTables.Count

Use o método Add para criar uma nova tabela de consulta e adicioná-la à coleção QueryTables . O exemplo a seguir cria uma nova tabela de consulta.

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

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.