VBA代碼对象编程方法详解.docVIP

VBA代码对象编程方法详解 一、前言 2 1.1 引用VBA扩展类库（Microsoft Visual Basic For Applications Extensibility 5.3） 2 1.2 需要启用编程方式访问VBA项目（仅在EXCEL中需设定） 2 二、VBA的可扩展模型对象简介 3 三、工程对象（Project） 4 3.1判断工程是否锁定 4 3.2 获得工程名 5 四、部件对象（VBComponent） 5 4.1 添加工程部件 5 4.2 移除工程中部件 6 4.3 列举部件名及类型信息 7 4.4 判断部件是否存 8 4.5 导入部件文件添加部件 8 4.6 导出部件为部件文件 8 五、代码窗格对象（CodePane） 9 5.1 显示代码窗格 10 5.2 获取窗格所选代码行列信息 10 六、代码模块对象（CodeModule） 11 6.1 获得指定行代码 11 6.2 列举模块中所有过程及类型 11 6.3 判断过程是否存在 13 6.4 获得指定行所在过程名 14 6.5 获取过程代码行数信息 14 6.6 获取部件或模块中代码行信息 16 6.7 获取工程代码行数信息 18 6.8 代码模块中添加代码操作 19 6.9 代码模块中插入代码操作 19 6.10 代码模块中替换代码操作 20 6.11 代码模块中删除代码操作 21 6.12 添加事件过程代码操作 22 6.13 查找代码获取相关信息 23 一、前言 本文所说的VBA代码编程，即通过编程方法创建、删除或编辑VBA工程部件、模块或代码程序对象，还可以通过VBA代码创建新的代码，以此可以实现VBA的二次开发。 VBA代码编程，也就是所谓的VBA可扩展性。要实现VBA扩展功能，或者说实现对VBA代码的编程，我们必须事先完成以下相关设置。 1.1 引用VBA扩展类库（Microsoft Visual Basic For Applications Extensibility 5.3） 在ACCESS 2003中扩展库文件为：VBE6EXT.OLB，你可以在VBE（Visual Basic Editor即VB编辑器）窗口，点菜单 [工具] — [引用]，在 [引用对话框] 中钩，来手动引用该扩展类库，你也可以通过代码实现对其的引用。 Dim ref As Reference 申明引用类对象 On Error Resume Next 避免因重复引用造成的错误提示 通过扩展库标识号，主版本号，次版本号完成引用 Set ref = References.AddFromGuid ({0002E157-0000-0000-C000-000000000046}, 5, 3) 1.2 需要启用编程方式访问VBA项目（仅在EXCEL中需设定） 在Excel 2003和更早版中，需设定允许对VBA项目的访问，否则将报错。ACCESS则不需对该项进行设定。 点选菜单 [工具]（在Excel中，而不是在VBA编辑器中）—[宏]—[安全性]，在 [安全对话框]中，单击 [可靠发行商] 页，点选 [信任对于“Visual Basic项目”的访问] 项（见下图） 注册表键值： HKLM\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM, 1, REG_DWORD 键值为：1，则钩选；0，则取消钩选 二、VBA的可扩展模型对象简介 Library VBIDE（扩展库） 路径：C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB 描述：Microsoft Visual Basic for Applications Extensibility 5.3 VBE（VB编辑器） 指VB编辑器，包含所有其它可在 Visual Basic for Applications 中表示VBProject（工程） VB工程（或称项目）中包含了所有的代码模块和部件。VB项目可包含若干个VB部件对象。 VBComponent（部件） 代表包含在工程中的部件对象，如：类模块或标准模块。 部件（VBComponent） 对象的 Type 属性： Vbext_ct_StdModule 1 标准模块 Vbext_ct_ClassModule 2 类模块 Vbext_ct_MSForm 3 Microsoft 窗体CodePane（代码窗格） 用 CodePane 对象来操作 CodePane 中可视文本的位置或者代码窗格中显示的文本选择。CodeModule（代码模块） 代码模块是VB部件VBA源代码，可用 Cod