Excel VBA教程:QueryTable对象事件的用法

在可以使用 QueryTable对象的事件之前,必须首先创建一个新的类模块,并声明一个具有事件的 QueryTable对象。例如,假定已创建了一个新的类模块,其名为ClsModQT。此模块中包含以下代码:


Public WithEvents qtQueryTable As QueryTable

在用事件声明新的对象之后,该对象就会出现在类模块的“对象”下拉列表框中。

但是,在过程运行之前,必须将类模块中声明的对象连接到指定的 QueryTable对象上。通过在类模块中输入以下代码,可完成此项工作:


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

在运行了此初始化过程之后,类模块中所声明的对象就会指向指定的 QueryTable对象。通过调用模块中的事件,可以对其进行初始化。在本示例中,活动工作表上的第一张查询表将连接到qtQueryTable对象上。


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

在对象的类中可编写其他事件过程。当单击“对象”框中的新对象时,该对象的有效事件就会显示在“过程”下拉列表框中。

上页:Excel VBA教程:在窗体上使用 Microsoft Office Web 组件 下页:Excel VBA教程:在 Visual Basic 中使用 Microsoft Excel 工作表函数

Excel VBA教程:QueryTable对象事件的用法

Excel VBA教程:在 Visual Basic 中使用 Microsoft Excel 工作表函数 Excel VBA教程:工作簿对象事件
Excel VBA教程:处理三维区域 Excel VBA教程:处理图形(绘图对象)
Excel VBA教程:处理活动单元格 Excel VBA教程:Worksheet对象事件
Excel VBA教程:页眉和页脚的格式代码 Excel VBA教程:ActiveX 控件
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:“帮助”主题不可用
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:“帮助”主题不可用
Excel VBA教程:单元格错误值 Excel VBA教程:内置对话框参数列表
Excel VBA教程:Hidden属性 Excel VBA教程:与语言相关的属性、方法和函数
Excel VBA教程:可用于 Visual Basic 的工作表函数列表 Excel VBA教程:新的事件
Excel VBA教程:新的方法(按字母顺序列出) Excel VBA教程:新的方法(按对象列出)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号