Início / coding / Perguntas / 79572860
Accepted
Antonio
Asked: 2025-04-14 18:00:47 +0800 CST

Por que o Excel VBA não está encontrando minha tabela de consulta?

  • 772

Tenho uma tabela de consulta em uma planilha importada de outro arquivo do Excel (usando o Editor do Power Query). A planilha é a única na pasta de trabalho.

Em um procedimento VBA dentro This workbookdo módulo, tento atribuir minha tabela de consulta a uma variável:

Private WithEvents QT As QueryTable
Set QT = Activesheet.QueryTables(1)

Mas recebo o erro "subscrito fora do intervalo". Depois de alguma investigação, tentei contar o número de tabelas de consulta na minha planilha:

MsgBox ActiveSheet.QueryTables.Count

e o resultado foi 0 (zero). Portanto, o VBA não consegue "encontrar" minha tabela. O que estou fazendo errado? Sou novo no mundo de tabelas de consulta, então qualquer ajuda é muito bem-vinda.

excel

1 respostas

  1. Best Answer

    Quando os dados são importados usando o Editor do Power Query, o Excel carrega o resultado em uma tabela (a ListObject) em vez de um arquivo QueryTable. Em vez disso, você pode usar o seguinte:

    Private WithEvents QT As QueryTable

Sub InitializeAndManipulateQueryTable()

    Dim lo As ListObject
    
    Set lo = ActiveSheet.ListObjects(1)
    Set QT = lo.QueryTable
    
End Sub
    • 2

relate perguntas