VBA代码封装过程
一、函数和子过程的封装过程
二、封装后函数和子过程的调用
三、窗体的封装和调用
四、com加载项的制作
五、利用com加载项制作功能区
如果你写VBA代码只是给自己使用或者不介意和别人共享代码，那么就用不到封装。
我们一般用VB6.0作为VBA代码的封装工具，VBA代码的封装在我理解就是将VBA代码修改成VB6.0能运行的代码，然后利用VB6.0可以制作dll文件的特点将所有代码封装在dll文件中，最后我们可以通过安装加载项或者引用的方式在工作表界面或VBA界面调用其中的函数、子过程和窗体。下面让我们具体看下VBA代码的封装过程（封装调用环境：xp系统，excel2007，VB6.0）：
一、函数和子过程的封装过程
函数和子过程也就是function过程和sub过程。封装的过程如下：
1、在vba编写代码，此次实验的代码如下，包含一个函数过程和一个子过程：
Function ceshi(a, b)
ceshi = a + b
End Function
Sub ceshi1()
MsgBox Application.Name
End Sub
2、打开VB6.0，新建工程，选择ActiveX dll，然后点打开。
3、点打开后在该工程中可以看到工程自带一个类模块，可以修改工程名字和类模块名字，也可以选择默认的工程名和类模块名，修改工程名和类模块名的过程如下，在VB6.0界面右边工程资源管理器窗口（如果没看见该窗口，可点击菜单栏中“视图”菜单的工程资源管理器命令调用）选择工程名（类模块名）
，然后在下面属性窗口“名称”一行修改成自己想要的名称，这里我们将工程名修改成fengzhuang，类模块名修改成cls1
4、右键点击类模块，在弹出的快捷菜单中选择查看代码，然后
将VBA代码复制到类模块代码窗口中，部分代码要稍作修改，改成VB6.0能识别的代码。如上面的子过程中出现了application对象，代表excel应用程序，但是在vb6.0直接这样写会出现错误，VB6.0并不能识别这就是一个excel应用程序对象，就像我们在VBA中直接写Dictionary（字典对象）和regexp（正则对象）一样，VBA并不能识别，要VBA能识别这两个对象，要么是创建新的对象（前期绑定和后期绑定），要么是获取已有的对象（前期绑定和后期绑定），因为我们在VBA中运行代码时，excel应用程序已经存在了，所以我们只需要获取已有对象即可。下面介绍前期绑定和后期绑定修改我们的代码。
A、前期绑定。在VB6.0最上面工程菜单中点击引用，在弹出的引用对话框中选择microsoft excel 12.0 object library，中间的数字因为安装版本的不同会有变化，2003是11.0、2010是14.0，尽量选择最高版本的，子过程代码无需修改。
B、后期绑定。后期绑定比较方便，不需要在VB6.0中设置引用，只需要修改子过程的代码即可。修改如下，中间用了getobject函数用于获取excel应用程序对象：
Sub ceshi1()
Set a = GetObject(, "excel.application")
MsgBox a.Name
Set a = Nothing
End Sub
在这里个人推荐使用后期绑定的方法修改代码，其实还有一种方法也可以使代码正常运行，无须设置引用，也无须用getobject获取对象，只需要为子过程设置一个object参数，然后在VBA中调用的时候向子过程传递应用程序这个参数即可。在VB6.0的代码如下：Sub ceshi1(obj1 as object)
MsgBox obj1.Name
End Sub
弹出窗口代码编写在vba中调用ceshi1子过程时向ceshi1传递参数application，写成ceshi1（application）。
5、生成dll文件。点击vb6.0 文件菜单中生成dll命令生成dll 文件
最后还要提到的一点是，因为上面测试用的代码比较简单，没有讲到向函数传递对象时代码的封装过程，
这里简单介绍下，比如在VBA中函数function ab(rng as range)在VB6.0中应该怎样写呢，第一

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。