excelCOM加载项编写过程

遇到几个朋友问COM加载项怎么做，搜索一下论坛似乎没有这方面详细的做法。所以根据我摸索出来的道路，写这篇东西糊弄糊弄大众，赚赚黑心水晶。嘿嘿。。。条条大道通罗马，这篇东东不是绝对正确也不是唯一一条道路。修仙也好，修魔也好，方向不同，但最终都是与天争命都是追求天道的真理（网络小说看多了）。欲练神功，请先自宫。。。
由于贫道作文能力有限，写出来的东西逻辑不清晰，觉得烦的朋友直接研究代码去吧。
废话不说了，转入正题：
一、创建工程并设置属性
二、连接Excel
三、响应Excel事件
四、调试编译分发安装

一、创建工程并设置属性。新建工程：打开VB6.0，新建一个工程。在新建工程选项中选择外接程序”（有的是Addin”）

为工程添加引用：工程”菜单引用”勾上Microsoft Excel 11.0 Object Libray”。（如果不引用，ExcelApplication、工具栏、按钮需声明为Object”，且代码编写过程中没有自动完成对象的属性、方法等）设置设计器属性：在工程资源管理器中双击Connect（Connect）”，打开设计器设计窗口。

在设计器中。外接程序显示名称输入你想要的名称（这里为TestAddin”）；外接程序描述中输入外接程序的描述；应用程序选择Microsoft Excel”；应该程序版本取决于你的电脑装了什么版本的Office我装的是Office2003，故选Microsoft Excel 11.0”；初始化加载行为选择Startup”。

二、连接 Excel

我们编写COM加载项就是要在Excel里面做点什么，如果用一个变量来保存Excel对象的话，我们基本上就能任意把Excel捏圆捏扁。变量的作用域是作为模块级的还是全局的就看你的实际情况，为了方便，这里定义为全局变量。添加一个模块mduMain”，在模块中定义变量：

Public gExcelApp As Excel.Application

连接Excel对象双击设计器Connect”，按F7”进入代码编辑窗口，把除了Option Explicit”之外的代码都删除。在对象框”中选择AddinInstance”，过程/事件框”中选择OnConnection”。

即出现

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)End Sub

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant) End Sub

在该过程中写入Set gExcelApp = Application”

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant) Set gExcelApp = ApplicationEnd Sub

定义用来响应按钮事件的类，以便添加工具栏过程中使用。

添加一个类ButtonEvent”，在类中定义一个响应事件的变量。

Public WithEvents Button As Office.CommandBarButton

如果事先知道有多少个按钮的话，可以用类数组。为了更好的扩展性，这里用一个集合类ButtonEventCol”来管理ButtonEvent”类。

添加一个类ButtonEventCol”，ButtonEventCol”类的代码：

Option ExplicitPrivate mCol As Collection ‘集合，用来存放ButtonEvent”类。Private Sub Class_Initialize() Set mCol = New Collection ‘类实例化时实例化集合End SubPrivate Sub Class_Terminate() Set mCol = Nothing ‘类销毁时销毁集合End SubPublic Sub Add(ByRef Button As Office.CommandBarButton) ‘添加按钮 Dim objNew As New ButtonEvent ‘创建ButtonEvent”类新实例 Set objNew.Button = Button ‘连接事件 mCol.Add objNew ‘将类添加到集合中，只要ButtonEventCol”类生存期未完，所有添加的ButtonEvent”类就一直生存 Set objNew = NothingEnd Sub

Option Explicit Private mCol As Collection ‘集合，用来存放ButtonEvent”类。 Private Sub Class_Initialize() Set mCol = New Collection ‘类实例化时实例化集合 End Sub Private Sub Class_Terminate() Set mCol = Nothing ‘类销毁时销毁集合 End Sub Public Sub Add(ByRef Button As Office.CommandBarButton) ‘添加按钮 Dim objNew As New ButtonEvent ‘创建ButtonEvent”类新实例 Set objNew.Button = Button ‘连接事件 mCol.Add objNew ‘将类添加到集合中，只要ButtonEventCol”类生存期未完，所有添加的ButtonEvent”类就一直生存 Set objNew = Nothing End Sub

创建工具栏和按钮

双击设计器Connect”，按F7”进入代码编辑窗口。刚才我们的代码

已经在 OnConnection 事件中连接 Excel 对象。我们就用gExcelApp”这个对象变量来创建工具栏和按钮，并与响应事件的类连接。

‘定义一个变量用于存放ButtonEventCol”类实例Private mButtonEventCol As New ButtonEventCol

‘定义一个变量用于存放ButtonEventCol”类实例 Private mButtonEventCol As New ButtonEventCol

‘定义一个变量用于存放ButtonEventCol”类实例Private mButtonEventCol As New ButtonEventCol

‘定义一个变量用于存放ButtonEventCol”类实例 Private mButtonEventCol As New ButtonEventCol

假设我们在Excel创建一个名叫外接程序”的工具栏，工具栏中有二个按钮，分别为：新建工作簿”、关闭工作簿”。

在AddinInstance_OnStartupComplete”（对象已加载完毕）事件中创建工具栏、按钮，并把按钮和响应事件的类连接，代码如下：

Private Sub AddinInstance_OnStartupComplete(custom() As Variant) Dim MyControl As Office.CommandBarButton Set mMyBar = gExcelApp.CommandBars.Add(Name:="外接程序", Position:=msoBarFloating, Temporary:=True) mMyBar.Visible = True Set MyControl = mMyBar.Controls.Add(Type:=msoControlButton, Temporary:=True) With MyControl .BeginGroup = False .Caption = "新建工作簿" .Enabled = True .Visible = True .FaceId = 18 .Style = msoButtonIconAndCaption .Parameter = "New" ‘Parameter 属性是类在响应按钮事件时区分按钮的标记。 ‘如果用 Tag 属性来区分的话，会发生二次事件。不知道为什么。 End With mButtonEventCol.Add MyControl Set MyControl = mMyBar.Controls.Add(Type:=msoControlButton, Temporary:=True) With MyControl .BeginGroup = False .Caption = "关闭工作簿" .Enabled = True .Visible = True .FaceId = 1088 .Style = msoButtonIconAndCaption .Parameter = "Close" End With mButtonEventCol.Add MyControl Set MyControl = NothingEnd Sub

关闭 Excel 时执行

Private Sub AddinInstance_OnBeginShutdown(custom() As Variant) Set mButtonEventCol = Nothing ‘关闭 Excel 时释放类。 ‘因为工具栏、按钮在创建的时候已经把 Temporary 属性设为 True 了，关闭 Excel 自动删除。 ‘所以这里不用编写删除工具栏的代码。End Sub

三、响应按钮的事件

打开类ButtonEvent”的代码编辑窗口，添加事件过程

Private Sub Button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)End Sub

Private Sub Button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) End Sub

在该事件过程中添加代码如下：

Private Sub Button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) Select Case Ctrl.Parameter ‘根据按钮的 Parameter 属性决定执行什么动作。 Case "New"gExcelApp.Workbooks.Add Case "Close"If Not (gExcelApp.ActiveWorkbook Is Nothing) Then gExcelApp.ActiveWorkbook.CloseElse MsgBox "没有活动工作簿", vbExclamationEnd If End SelectEnd Sub

Private Sub Button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) Select Case Ctrl.Parameter ‘根据按钮的 Parameter 属性决定执行什么动作。 Case "New" gExcelApp.Workbooks.Add Case "Close" If Not (gExcelApp.ActiveWorkbook Is Nothing) Then gExcelApp.ActiveWorkbook.Close Else MsgBox "没有活动工作簿", vbExclamation End If End Select End Sub

四、调试编译分发安装调试和编译：

关闭Excel，设计器代码窗口中的AddinInstance_OnConnection”事件中，在Set gExcelApp = Application”这句代码设置断点。按F5”运行，然后打开 Excel 。这时，代码执行到Set gExcelApp = Application”这里就暂停了。你可以一步一步按F8”进行跟踪调试，看看加载项的工作方法，找到错误的地方并改正。当调试没什么问题之后，编译就比较简单了，按文件”菜单生成工具栏连接.DLL”。然后生成就行了。

分发安装:

这里介绍用WinRAR”制作安装包。

按工程”菜单引用，查看引用项目的路径，把引用项目的文件复制到生成的DLL文件目录中。

如果有窗体，在工具栏点右建部件”，查看引用的项目的路径，把引用项目的文件复制到生成的DLL文件目录中。

打开记事本”，输入

RegSvr32.exe 工具栏连接.dll

另存为，保存类型选所有文件”，文件名安装.BAT”，保存到生成的DLL文件目录中。

打开记事本”，输入

RegSvr32.exe 工具栏连接.dll /U

另存为，保存类型选所有文件”，文件名卸载.BAT”，保存到生成的DLL文件目录中。

打开WinRAR”，定位到生成的DLL文件的目录。选中要DLL文件、安装和卸载两个BAT文件、被工程引用项目的文件等。按添加”。

在压缩参数对话框中的常规”选项卡中，勾选创建自解压格式压缩文件”。

切换到高级”选项卡，按自解压选项”。

在高级自解压选项”对话框中，解压路径中填入工具栏连接”，选中在 Program Files 中创建”，不勾选保存并恢复路径”，解压后运行”中填入安装.BAT”。全部确定后生成的工具栏连接.exe”就是安装文件了。

1文件名称 1下载链接

COMAddin.zippan.baidu./s/1kTojK6j

转载请注明：范的资源库 » excelCOM加载项编写过程