Compartir a través de

Uso de eventos con el objeto QueryTable

  • Artículo

Para poder usar eventos con el objeto QueryTable , primero debe crear un módulo de clase y declarar un objeto QueryTable con eventos. Por ejemplo, suponga que ha creado un módulo de clase y lo ClsModQTha denominado . Este módulo contiene el código siguiente:

Public WithEvents qtQueryTable As QueryTable

Después de declarar el nuevo objeto mediante eventos, aparece en el cuadro de lista Objeto del módulo de clase.

Antes de ejecutar los procedimientos, sin embargo, deberá conectar el objeto declarado en el módulo de clase con el objeto QueryTable especificado. Puede hacerlo escribiendo el código siguiente en el módulo de clase:

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

Después de ejecutar este procedimiento de inicialización, el objeto declarado en el módulo de clase señala al objeto QueryTable especificado. Puede inicializar el evento en un módulo llamando al evento. En este ejemplo, la primera tabla de consulta de la hoja de cálculo activa está conectada al objeto qtQueryTable.

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

Puede escribir otros procedimientos de evento en la clase de objeto. Al hacer clic en el nuevo objeto en el cuadro Objeto , los eventos válidos para ese objeto se muestran en el cuadro de lista Procedimiento .

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.