VB 版 (精华区)

发信人: cdd (平上), 信区: VB
标  题: 创建ActiveX接口以移植Excel工作表(设计DLL设计工作)
发信站: 哈工大紫丁香 (2000年06月06日14:00:06 星期二), 站内信件


　　在你能够测试这些代码之前，你必须创建 Excel工作簿，为了达到这
个目的，打开Excel，并且将缺省的book1存储到自己的路径\DLLTest.xsl
下，该路径是你以上创建的 VB项目所在的路径。在工作簿中，打开VBA编
辑器并在Excel菜单中选择View>Toolbars>Visual Basic，在visual Basic
工具条中点击编辑按钮。增加新模块到编辑器中，并输入下述代码（列表
3）。
　　列表3：设计工作簿—增加新模块和下述代码。
　　　Sub RunExcelDLL()
　　　'Creates an instance of the new DLL and calls the main
　　　'method .
　　　Dim x As New ExcelDLL.clsExcelWork
　　　x.RunDLL
　 .　End Sub
　　　Sub AddExcelDLLMenu()
　　　'Adds a new menu item so the DLL can be started.
　　　On Error Resume Next
　　　Set myMenubar = CommandBars.ActiveMenuBar
　 .　With myMenubar
　　　With .Controls("Northwind DLL")
　　　Delete
　　　End With
　　　End With
　　　Set newMenu = myMenubar.Controls.Add _
　　　(Type := msoControlPopup, Temporary :=True)
　　　newMenu.Caption = "Northwind DLL"
　　　Set ctr11 = newMenu.Controls.Add(Type := msoControlButton,
　　　_Id:=1)
　 .　With ctrl1
　　　.Caption = "Run Northwind DLL"
　　　.Style = msoButtonCaption
　 .　 OnAction = "RunExcelDLL"
　　　 End With
　　　 End sub
　　双击Microsoft Excel Objects中的ThisWorkbook，并输入以下代码：
　　　Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　　On Error resume Next
　　　Set x = Nothing
　　　End sub
　　　Private Sub Workbook_Open()
　　　AddExcelDLLMenu
　　　End Sub
　　最后，保存 Excel Workbook，此时不要试图运行该代码，因为DLL还
没有创建且没有设置适当的引用。


--
问：生活为什么如此美好？
答：因为有了BBS.

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: che.hit.edu.cn]