使用VB6为Excel开发COM加载项

《使用VB6为Excel开发COM加载项》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、使用VB6为Excel开发COM加载项本文通过两个简单的示例，详细描述了使用VB6开发ExcelCOM加载项的步骤。在本文的后面，还介绍了Excel2007中COM加载项的一些变化。示例1步骤1：启动VB6，在“新建工程”对话框中选择“外接程序”，单击“打开”按钮，如下图1所示。图1：“新建工程”对话框VB6将自动创建一个名为MyAddIn的工程，包含一个名为frmAddIn的窗体和一个名为Connect的Designer类变量。步骤2：将工程名称修改为MyFirstCOMAddIn。步骤3：删除默认的窗体frmAddIn。步骤4：删除Connect中的全部代码

2、。步骤5：在工程资源管理器窗口双击Connect打开加载项设计器窗口，并对其进行相应的设置，如下图2所示。使用VB6为Excel开发COM加载项图2：进行加载项设置如上图2所示，在“通用”选项卡中设置COM加载项在Excel的COM加载项对话框中显示的名称及相应的描述。设置“应用程序”为MicrosoftExcel，根据用户计算机上安装的Excel选择相应的应用程序版本，这里选择“MicrosoftExcel14.0”，即Excel2010。选择初始化加载行为为“Startup”，即在Excel启动时运行该加载项，还可以选择其它的加载选项。加载项设置说明：外接

3、程序显示名称：填写加载项的名字外接程序描述：描述所创建的加载项的作用和功能应用程序：使用所创建的加载项的应用程序。应用程序版本：使用所创建的加载项的应用程序的版本。初始化加载行为：当应用程序开启时，是否自动装载该加载项，有四个选项。若设置为Startup，则Excel启动时装载该加载项；若设置为Loadondemand，则在Excel中需要使用该加载项时再装载该加载项。步骤6：在工程资源管理器窗口的Connect中单击右键，选择“查看代码”，打开代码窗口。步骤7：在代码窗口顶部左侧的对象列表框中选择AddinInstance对象，在右侧的事件列表框中选择

4、OnConnection事件，输入的代码如下：-2-fanjy_EH使用VB6为Excel开发COM加载项PrivateSubAddinInstance_OnConnection(ByValApplicationAsObject,_ByValConnectModeAsAddInDesignerObjects.ext_ConnectMode,_ByValAddInInstAsObject,custom()AsVariant)MsgBox"这是使用VB6创建的COM加载项."EndSub然后，再在事件列表框中选择OnDisconnection事件，输入的代码如下：P

5、rivateSubAddinInstance_OnDisconnection(_ByValRemoveModeAsAddInDesignerObjects.ext_DisconnectMode,custom()AsVariant)MsgBox"Excel工作簿将要关闭,里面的数据已经保存了吗？"EndSub步骤8：保存所有的工程文件。步骤9：单击菜单“文件——生成MyFirstCOMAddIn.dll”。至此，这个简单的COM加载项编写完成。步骤10：打开Excel2010，将会出现一个消息框，显示在COM加载项的OnConnection事件中设置的消息，如下图

6、3所示。图3：这个加载项运行后显示的结果关闭Excel2010时，将会出现一个消息框，显示在COM加载项的OnDisconnection事件中设置的消息，如下图4所示。图4：这个加载项运行后显示的结果这个加载项之所以会在Excel2010会话开启时运行，是因为我们在设置加载项时选择了选项“Startup”，即在Excel启动时加载该加载项。单击“开发工具”选项卡“加载项”组中的“COM加载项”，显示“COM加载项”对话框，列出了所有可用的COM加载项，如下图5所示。在该对话框中，可以取消某加载项前的复选，使其不可用，或者通过“删除”按钮删除该加载项。-3-fan

7、jy_EH使用VB6为Excel开发COM加载项图5：控制加载项的使用示例2：一个菜单COM加载项本示例的步骤与示例1相同，但代码稍微复杂一些。步骤1：启动VB6，在“新建工程”中选择“外接程序”，打开新工程。图6：“新建工程”对话框步骤2：在工程资源管理器中将会有一个名为frmAddIn的窗体和一个名为Connect的设计器对象，如下图7所示。图7：工程资源管理器中的项目-4-fanjy_EH使用VB6为Excel开发COM加载项移除工程资源管理器窗口中的frmAddIn窗体，设置Connect设计器对象。步骤3：双击设计器对象，出现一个设计器窗体，对其进行设

8、置，如下图8所示。图8：