Usando eventos com o objeto QueryTable

Antes de poder usar eventos com o objeto QueryTable , primeiro você deve criar um módulo de classe e declarar um objeto QueryTable com eventos. Por exemplo, suponha que você criou um módulo de classe e o nomeou ClsModQT. Esse módulo contém o seguinte código:

Public WithEvents qtQueryTable As QueryTable

Depois de declarar o novo objeto usando eventos, ele será exibido na caixa Lista de objetos no módulo de classe.

Antes dos procedimentos serem executados, entretanto, você precisa conectar o objeto declarado no módulo de classe ao objeto QueryTable especificado. Você pode fazer isso inserindo o código seguinte no módulo de classe:

Sub InitQueryEvent(QT as Object) 
 Set qtQueryTable = QT 
End Sub

Depois de executar esse procedimento de inicialização, o objeto declarado no módulo de classe aponta para o objeto QueryTable especificado. Você pode inicializar o evento em um módulo chamando o evento. Nesse exemplo, a primeira tabela de consulta na planilha ativa está conectada ao objeto qtQueryTable.

Dim clsQueryTable as New ClsModQT 
 
Sub RunInitQTEvent 
 clsQueryTable.InitQueryEvent _ 
 QT:=ActiveSheet.QueryTables(1) 
End Sub

Você pode escrever outros procedimentos de evento na classe de objeto. Quando você clica no novo objeto na caixa Objeto , os eventos válidos para esse objeto são exibidos na caixa de lista Procedimento .

Confira também

• Funções do Excel (por categoria)

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.