DLL文件制作与在VBA调用初级进阶

DLL文件制作与在VBA调用初级进阶

■ 作者：ldhyob 日期：2004.02

本文用一简例来演示如何将一正常在VBA中运行的代码移植到VB制作的DLL中去，并介绍如何在VBA中进行调用。这仅仅是最初级的介绍，希望能对此内容想了解的版友们一些帮助，而已掌握该技术的FANS们完全可以跳过本文。

先来了解一下什么是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模块我们可以编写这样的代码：

1. Subtest()
3. OnErrorResumeNext
5. Dimi,jAsInteger
7. WithWorksheets("Sheet1")
9. i=.Cells(1,1).Value
11. j=.Cells(1,2).Value
13. .Cells(1,3)=i+j
15. EndWith
17. EndSub

执行上面的宏，会发现C1单元格自动会出现A1+B1的结果了。

下面我们在VB中生成包含以上宏功能的函数（子程序）的DLL文件。打开VB，“文件”-“新建工程”-“ActiveX DLL”，此时会弹出class1模块代码窗口，将如下代码写入：

1. Subtest()
3. OnErrorResumeNext
5. Dimi,jAsInteger
7. DimEB
9. SetEB=GetObject(,"Excel.Application")
11. WithEB.ActiveSheet
13. i=.Cells(1,1).Value
15. j=.Cells(1,2).Value
17. .Cells(1,3)=i+j
19. EndWith
21. SetEB=Nothing
23. EndSub

在生成DLL之前，注意确保VB里"工程"---"引用"里"Microsoft Excel 9.0 Object Library"前面的勾已打上，再就是正确设定好DLL描述与名称。菜单“工程”----“工程属性”---“工程描述”，里面可以写上你的DLL功能名称或简介或版本号。“视图”---“属性”，设定名称为你在其他开发环境中欲使用的引用名称，如“Mytest”。好，现在点击菜单“文件”---“生成…dll”，会弹出路径与文件取名窗，按你的意思选择与输入好路径和即将生成的DLL文件名，按确定就会完成DLL的生成工作。

此时DLL已生成在你指定的目录下了，当前工程保不保存就随便你自己了，如果以后还想再编辑修改的话，当然得取个文件名保存好：）。生成的DLL如果正确的话，VBA中只要引用后就可正常调用了。

现在回到EXCEL VBA开发环境中来，先对刚生成的DLL进行一下引用。关于引用，可以手工引用，也可以用代码来做。手工引用的步骤是：在VBE窗口中，菜单“工具”---“引用”，会弹出如下窗口：

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><stroke joinstyle="miter"></stroke><formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f eqn="sum @0 1 0"></f><f eqn="sum 0 0 @1"></f><f eqn="prod @2 1 2"></f><f eqn="prod @3 21600 pixelWidth"></f><f eqn="prod @3 21600 pixelHeight"></f><f eqn="sum @0 0 1"></f><f eqn="prod @6 1 2"></f><f eqn="prod @7 21600 pixelWidth"></f><f eqn="sum @8 21600 0"></f><f eqn="prod @7 21600 pixelHeight"></f><f eqn="sum @10 21600 0"></f></formulas><path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><lock aspectratio="t" v:ext="edit"></lock></shapetype><shape id="_x0000_i1025" title="新窗口打开" style="WIDTH: 330pt; HEIGHT: 251.25pt" href="UploadFile/2004-2/200422901645889.gif" o:button="t" target="_blank" alt="" type="#_x0000_t75"><imagedata o:href="http://club.excelhome.net/UploadFile/2004-2/200422901645889.gif" src="file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image001.gif"></imagedata></shape>

“浏览”到刚才生成的DLL，选择打勾确定即可。代码引用： Shell "regsvr32 /s " & "…………..dll", vbHide，加s参数是防止出现确认窗口，影响界面。取消引用则使用/u参数。

然后在VBA中写调用的代码：

1. SubDLLtest()
3. DimabcAsNewMytest‘定义abc为新类，即在DLL文件中定义的
5. abc.test‘调用DLL中提供的过程，来完成原来在VBA中的功能，起到隐藏代码的效果
7. Setabc=Nothing
9. EndSub

提供的示例中，将VBA方法与DLL调用放在了一起，便于大家进行比较。另外，DLL文件的制作远比我在这里介绍的复杂，还会涉及到类初始化、自定义属性与事件等内容，不过如果有时我们仅仅需要借助其来保护我们的VBA代码的话，掌握这部分也就足够了，呵呵。