用DLL封装vba代码

yuan1987

本文用一简例来演示如何将一正常在VBA中运行的代码移植到VB制作的DLL中去，并介绍如何在VBA中进行调用。这仅仅是最初级的介绍，希望能对此内容想了解的版友们一些帮助。
先来了解一下什么是DLL：DLL是Dynamic Link Library的缩写，意为动态链接库。在Windows中，许多应用程序并不是一个完整的可执行文件，它们被分割成一些相对独立的动态链接库，即DLL文件，放置于系统中。当我们执行某一个程序时，相应的DLL文件就会被调用。一个应用程序可有多个DLL文件，一个DLL文件也可能被几个应用程序所共用，这样的DLL文件被称为共享DLL文件。DLL文件一般被存放在C:\Windows\System目录下。 因此，DLL文件可以看作是一个程序扩展函数库，成为应用软件程序的外挂接口。就象我们常在程序中用的WINDOWS API，就是如此，它是微软提供给程序员的函数宝库，用户只需了解函数功能与调用规则就可以拿来使用，而不用知道也不需要知道具体源码。也正因为此，现在许多VBA开发者在保护其代码时也多采用此法来维护其合法权益。
现在开始。假如我们要编这么一段代码：将工作表Sheet1的A1单元格的数值与B1单元格的数值相加填写到C1单元格去（这是极简单的了，只是用来说明问题），在VBA模块我们可以编写这样的代码：
Sub test()
On Error Resume Next
Dim i, j As Integer
With Worksheets("Sheet1")
i = .Cells(1, 1).Value
j = .Cells(1, 2).Value
.Cells(1, 3) = i + j
End With
End Sub
执行上面的宏，会发现C1单元格自动会出现A1+B1的结果了。
下面我们在VB中生成包含以上宏功能的函数（子程序）的DLL文件。
打开VB，“文件”-“新建工程”-“ActiveX DLL”，此时会弹出class1模块代码窗口，将如下代码写入：
Sub test()
On Error Resume Next
Dim i, j As Integer
Dim EB
Set EB = GetObject(, "Excel.Application")
With EB.ActiveSheet
i = .Cells(1, 1).Value
j = .Cells(1, 2).Value
.Cells(1, 3) = i + j
End With
Set EB = Nothing
End Sub
在生成DLL之前，注意确保VB里"工程"---"引用"里"Microsoft Excel 9.0 Object Library"前面的勾已打上，再就是正确设定好DLL描述与名称。菜单“工程”----“工程属性”---“工程描述”，里面可以写上你的DLL功能名称或简介或版本号。“视图”---“属性”，设定名称为你在其他开发环境中欲使用的引用名称，如“Mytest”。
好，现在点击菜单“文件”---“生成…dll”，会弹出路径与文件取名窗，按你的意思选择与输入好路径和即将生成的DLL文件名，按确定就会完成DLL的生成工作。此时DLL已生成在你指定的目录下了，当前工程保不保存就随便你自己了，如果以后还想再编辑修改的话，当然得取个文件名保存好：）。生成的DLL如果正确的话，VBA中只要引用后就可正常调用了。
现在回到EXCEL VBA开发环境中来，先对刚生成的DLL进行一下引用。关于引用，可以手工引用，也可以用代码来做。手工引用的步骤是：在VBE窗口中，菜单“工具”---“引用”，会弹出如下窗口：


刚才生成的DLL，选择打勾确定即可。代码引用：MSCBSC %A!B+J1U5T&v.n$N7B
Shell "regsvr32 /s " & "…………..dll", vbHide，加s参数是防止出现确认窗口，影响界面。取消引用则使用/u参数。
然后在VBA中写调用的代码：
Sub DLLtest()
Dim abc As New Mytest ‘定义abc为新类，即在DLL文件中定义的
abc.test ‘调用DLL中提供的过程，来完成原来在VBA中的功能，起到隐藏代码的效果
Set abc = Nothing
End Sub
提供的示例中，将VBA方法与DLL调用放在了一起，便于大家进行比较。另外，DLL文件的制作远比我在这里介绍的复杂，还会涉及到类初始化、自定义属性与事件等内容，不过如果有时我们仅仅需要借助其来保护我们的VBA代码的话，掌握这部分也就足够了，呵呵。

yuan1987

最后那部分不完整，不知道怎么改动，请高手指导