QueryTable对象事件的用法.docx

1、本文档共3页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

QueryTable对象事件的用法

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

PublicWithEventsqtQueryTableAsQueryTable

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

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

SubInitQueryEvent(QTasObject)SetqtQueryTable=QT

EndSub

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

DimclsQueryTableasNewClsModQTSubRunInitQTEvent

clsQueryTable.InitQueryEvent_QT:=ActiveSheet.QueryTables(1)

EndSub

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

上页：ExcelVBA教程：在窗体上使用MicrosoftOfficeWeb组件下页：ExcelVBA教程：在VisualBasic中使用MicrosoftExcel工作表函数

ExcelVBA教程：QueryTable对象事件的用法

ExcelVBA教程：在VisualBasic中使用MicrosoftExcel工作表函数

ExcelVBA教程：工作簿对象事件

ExcelVBA教程：处理三维区域 ExcelVBA教程：处理图形（绘图对象）ExcelVBA教程：处理活动单元格 ExcelVBA教程：Worksheet对象事件

ExcelVBA教程：页眉和页脚的格式代码ExcelVBA教程：“帮助”主题不可用ExcelVBA教程：“帮助”主题不可用ExcelVBA教程：单元格错误值

ExcelVBA教程：Hidden属性

ExcelVBA教程：ActiveX控件ExcelVBA教程：“帮助”主题不可用ExcelVBA教程：“帮助”主题不可用ExcelVBA教程：内置对话框参数列表

ExcelVBA教程：与语言相关的属性、方法和函数

ExcelVBA教程：可用于VisualBasic的工作表函数列表

ExcelVBA教程：新的事件

F-VBA教程-ExcelVBA教程-QueryTable对象事件的用法ExcelVBA教程：新的方法

F-VBA教程-ExcelVBA教程-QueryTable对象事件的用法

该用户很懒，什么也没介绍

咨询Ta 进入空间

认证主体上海谭台科技有限公司

IP属地上海

更多 >