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.