vba代码对象编程方法详解

《vba代码对象编程方法详解》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VBA代码对象编程方法详解一、前言21.1引用VBA扩展类库（MicrosoftVisualBasicForApplicationsExtensibility5.3）21.2需要启用编程方式访问VBA项目（仅在EXCEL中需设定）2二、VBA的可扩展模型对象简介3三、工程对象（Project）43.1判断工程是否锁定43.2获得工程名5四、部件对象（VBComponent）54.1添加工程部件54.2移除工程中部件64.3列举部件名及类型信息74.4判断部件是否存84.5导入部件文件添加部件84.6导出部件为部件文件8五、代码窗格对象（CodePane）95.1显示代

2、码窗格105.2获取窗格所选代码行列信息10六、代码模块对象（CodeModule）116.1获得指定行代码116.2列举模块中所有过程及类型116.3判断过程是否存在136.4获得指定行所在过程名146.5获取过程代码行数信息146.6获取部件或模块中代码行信息166.7获取工程代码行数信息186.8代码模块中添加代码操作196.9代码模块中插入代码操作196.10代码模块中替换代码操作206.11代码模块中删除代码操作216.12添加事件过程代码操作226.13查找代码获取相关信息23一、前言本文所说的VBA代码编程，即通过编程方法创建、删除或编辑VBA工程部件、

3、模块或代码程序对象，还可以通过VBA代码创建新的代码，以此可以实现VBA的二次开发。VBA代码编程，也就是所谓的VBA可扩展性。要实现VBA扩展功能，或者说实现对VBA代码的编程，我们必须事先完成以下相关设置。1.1引用VBA扩展类库（MicrosoftVisualBasicForApplicationsExtensibility5.3）在ACCESS2003中扩展库文件为：VBE6EXT.OLB，你可以在VBE（VisualBasicEditor即VB编辑器）窗口，点菜单[工具]—[引用]，在[引用对话框]中钩，来手动引用该扩展类库，你也可以通过代码实现对其的引用。

4、DimrefAsReference'申明引用类对象OnErrorResumeNext'避免因重复引用造成的错误提示'通过扩展库标识号，主版本号，次版本号完成引用Setref=References.AddFromGuid("{0002E157-0000-0000-C000-000000000046}",5,3)1.2需要启用编程方式访问VBA项目（仅在EXCEL中需设定）在Excel2003和更早版中，需设定允许对VBA项目的访问，否则将报错。ACCESS则不需对该项进行设定。点选菜单[工具]（在Excel中，而不是在VBA编辑器中）—[宏]—[安全性]，在[安全对话框

5、]中，单击[可靠发行商]页，点选[信任对于“VisualBasic项目”的访问]项（见下图）注册表键值：HKLMSoftwareMicrosoftOffice11.0ExcelSecurityAccessVBOM",1,"REG_DWORD"键值为：1，则钩选；0，则取消钩选二、VBA的可扩展模型对象简介lLibraryVBIDE（扩展库）路径：C:ProgramFilesCommonFilesMicrosoftSharedVBAVBA6VBE6EXT.OLB描述：MicrosoftVisualBasicforApplicationsExte

6、nsibility5.3lVBE（VB编辑器）指VB编辑器，为根对象，其包含所有其它可在VisualBasicforApplications中表示的对象和集合。lVBProject（工程）VB工程（或称项目）中包含了所有的代码模块和部件。VB项目可包含若干个VB部件对象。lVBComponent（部件）代表包含在工程中的部件对象，如：类模块或标准模块。部件（VBComponent）对象的Type属性：常数值描述Vbext_ct_StdModule1标准模块Vbext_ct_ClassModule2类模块Vbext_ct_MSForm3Microsoft窗体（非ACCE

7、SS类窗体）lCodePane（代码窗格）用CodePane对象来操作CodePane中可视文本的位置或者代码窗格中显示的文本选择。lCodeModule（代码模块）代码模块是VB部件VBA源代码，可用CodeModule对象来修改（添加、删除、编辑）与部件相关联的代码CodePane或CodeModule内程序类别（prockind）常数：常数值描述vbext_pk_Proc0指定所有过程除了Property过程。vbext_pk_Let1指定一个赋值给属性的过程。vbext_pk_Set2指定一个给对象设置引用的过程。vbext_pk_Get3指