使用VB为Excel开发COM加载项.pdfVIP

使用VB6 为Excel 开发COM 加载项 本文通过两个简单的示例，详细描述了使用VB6 开发Excel COM 加载项的步骤。在本文的后 面，还介绍了Excel 2007 中COM 加载项的一些变化。 示例1 步骤1：启动VB6 ，在“新建工程”对话框中选择“外接程序”，单击“打开”按钮，如下 图1 所示。 图1：“新建工程”对话框 VB6 将自动创建一个名为 MyAddIn 的工程，包含一个名为 frmAddIn 的窗体和一个名为 Connect 的Designer 类变量。 步骤2：将工程名称修改为MyFirstCOMAddIn。 步骤3：删除默认的窗体frmAddIn 。 步骤4 ：删除Connect 中的全部代码。 步骤 5：在工程资源管理器窗口双击 Connect 打开加载项设计器窗口，并对其进行相应的 设置，如下图2 所示。 使用VB6 为Excel 开发COM 加载项 图2：进行加载项设置 如上图2 所示，在“通用”选项卡中设置COM 加载项在Excel 的COM 加载项对话框中显示 的名称及相应的描述。设置“应用程序”为Microsoft Excel，根据用户计算机上安装的Excel 选择相应的应用程序版本，这里选择“Microsoft Excel 14.0”，即Excel 2010。选择初始化加 载行为为“Startup ”，即在Excel 启动时运行该加载项，还可以选择其它的加载选项。 加载项设置说明：  外接程序显示名称：填写加载项的名字  外接程序描述：描述所创建的加载项的作用和功能  应用程序：使用所创建的加载项的应用程序。  应用程序版本：使用所创建的加载项的应用程序的版本。  初始化加载行为：当应用程序开启时，是否自动装载该加载项，有四个选项。若设 置为Startup，则Excel 启动时装载该加载项；若设置为Load on demand，则在Excel 中需要使用该加载项时再装载该加载项。 步骤6：在工程资源管理器窗口的Connect 中单击右键，选择“查看代码”，打开代码窗口。 步骤7：在代码窗口顶部左侧的对象列表框中选择AddinInstance 对象，在右侧的事件列表 框中选择OnConnection 事件，输入的代码如下： - 2 - fanjy_ EH 使用VB6 为Excel 开发COM 加载项 Private Sub AddinInstance_OnConnection(ByVal Application As Object, _ ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _ ByVal AddInInst As Object, custom() As Variant) MsgBox 这是使用VB6 创建的COM 加载项. End Sub 然后，再在事件列表框中选择OnDisconnection 事件，输入的代码如下： Private Sub AddinInstance_OnDisconnection(_ ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant) MsgBox Excel 工作簿将要关闭,里面的数据已经保存了吗？ End Sub 步骤8：保存所有的工程文件。 步骤9：单击菜单“文件——生成MyFirstCOMAddIn.dll”。 至此，这个简单的COM 加载项编写完成。 步骤10：打开Excel 2010，将会出现一个消息框，显示在COM 加载项的OnConnection 事 件中设置的消息，如下图3 所示。 图3：这个加载项运行后显示的结果 关闭Excel 2010 时，将会出现一个消息框，显示在COM 加载项