VB封装Excel宏代码的三个方法

VB封装Excel_VBA成DLL技巧使用VB6.0在WinXP_sp2、Excel 2000环境下制作、测试通过。

一、启动VB6.0：

执行：“文件夹(F)”——“新建(N)”——选择“ActiveX DLL”，如下图1：

二、引用：VB中对Excel的引用

执行：“工程(P)”——“引用(N)”——选择所要引用的项目：如下图2

Excel 2000中：

Microsoft Excel 9.0 Object Library

Microsoft Office 9.0 Object Library

Excel 2003中：

Microsoft Excel 11.0 Object Library

Microsoft Office 11.0 Object Library

三、编写代码：

1、将工程默认名称“工程1”，改为“zygtest”，将类模块默认名称“Class1”，改为“zyg365”，

2、在类模块的代码编辑区写入代码：如下图3

模块名称为“hongtong”，代码如下

在VB中编写代码时：要注意以下声名

Dim XLAPP As Object

Set XLAPP = GetObject(, "Excel.Application")

代码中引用对象，如SHEET，Cell等，前面要加“XLAPP.”

（或按照Sub hongtong() 中的格式编写。）

Sub hongtong()

Dim excelApp As New Excel.Application

Dim excelWorkBook As Excel.Workbook

Dim excelWorksheet As Excel.Worksheet

Set excelWorkBook = excelApp.Workbooks.Add '创建新工作簿

Set excelWorksheet = excelWorkBook.Sheets(1)

excelWorksheet.Cells(2, 3) = "宏通" '写入数据

excelWorksheet.Cells(3, 4) = "zyg365" '写入数据

excelApp.Visible = True '显示excel界面，用于调试

excelWorkBook.PrintPreview '打印预览

excelWorkBook.PrintOut '打印输出

excelWorkBook.Saved = True

'excelWorkBook.Close '关闭工作薄

'excelApp.Quit '退出excel

End Sub

四、工程属性设置：(可以不设置，本步骤可以省略)

为了使自己开发的程序更规范，可以对本工程的属性加以描述：如下图4

执行：“工程(P)”——“工程1属性(E)…”(当前工程中为：“zygtest属性(E)…”)

五、保存工程、测试、打包生成Dll文件：

1、保存：单击保存，保存到一个文件夹中；

2、测试：执行工具栏上的“启动”(右向的三角图标)按钮，检查是否存在错误；

3、打包生成Dll文件：

执行：“文件(F)”——“生成工程1.dll(K)”(当前工程中为：“zygtest.dll”)，

重命名为“zyg.dll”,至此，Dll文件制作结束。

六、在Excel_VBA工程中引用、调用zyg.dll文件：如下图5

1、引用zyg.dll文件：

首先在Excel的VBE窗口中，执行“工具(T)”——“引用(R)”——在“引用”对话框中，

单击“浏览(B)…”按钮，找到“zyg.dll”文件——“确定”即可。

在工作簿事件中，编写代码：工作簿启动时，注册“zyg.dll”控件，工作簿关闭时，反注册

“zyg.dll”控件：

在ThisWorkbook中：

Private Sub Workbook_Open() '注册、引用zyg.dll

Shell "Regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "\zyg.dll" & VBA.Chr(34), vbHide

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) '反注册zyg.dll

Shell "Regsvr32 /u /s " & VBA.Chr(34) & ThisWorkbook.Path & "\zyg.dll" & VBA.Chr(34), vbHide

End Sub

2、编写调用zyg.dll中代码的模块：

Sub test()

Dim kk As New zyg365 'zyg365为VB中类模块名称：输入完New后，敲空格键，

'直接出现选择列表框，从中选择“zyg365”

'kk可任意命名

kk.hongtong 'hongtong为VB中要执行的模块的名称：输入完kk.后，

'直接出现选择列表框，从中选择“zyg365”

'为你的VB中的过程名称，从列表中选的

Set kk = Nothing '释放类资源

End Sub

另一个版本：

1、（本帖里）图1 就是vb6.0在桌面的图标，双击它

2、弹出窗口后，先选择ActiveX DLL（图2的红框），再点击打开（图2的蓝框）

3、起个名字（图3蓝色框内文字改为ABC）

4、先保存一下，桌面新建个文件夹，点击图3红框里的保存标志，弹出另存为对话框，选择桌面》双击刚刚建立的那个文件夹(图4蓝色框)》保存(图4红色框)》保存

5、写代码，模块里输入下面代码

Sub def()

Dim EL As Object

Set EL = GetObject(, "Excel.Application")

With EL.ActiveSheet

.Cells(1, 3) = .Cells(1, 1) & .Cells(1, 2)

End With

Set EB = Nothing

End Sub

（如图5所示）

6、点击文件(图5红色框)，在出现的下拉菜单中点击生成工程1.dll(k)...》(默认保存位置)点击确定

至此，Dll就制作完成了

四、使用dll

1、新建一个excel，A1单元格输入"你",B1单元格输入"好"

2、打开VBE，工具》引用》浏览》找到刚刚创建的文件夹点击工程1.dll(图6)》点击打开》点击确定

3、插入一个模块，输入下面代码

Sub test()

Dim a As New ABC

a.def

Set a = Nothing

End Sub

4、运行一下代码，C1单元格出现"你好"

至此，一个由制作到使用dll的简单示例全部完成

用DLL封装VBA

本文用一简例来演示如何将一正常在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模块我

们可以编写这样的代码：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，选择打勾确定即可。代码引用：

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代码的话，掌握这部分也就足够了，呵呵。