VB 版 (精华区)

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


　　需要冷静思考的是，用户是否需要打开特定的 Excel工作表以访问该
接口？如果你需要改变用户的接口时将会发生什么？你是否需要重新编制
安装文件，是否需要与每一个用户取得联系，并使他们重新安装相应的应
用程序，把 ActiveX DLL自动地拷贝和注册到用户的机器上是否是一种好
的方法？
　　可执行程序能够检查DLL而且在需要的时候更新并注册DLL，接着继续
发送 Execl并打开你所创建的工作簿，幸运的是，这是一种相当直接的过
程。开始创建一个新个Visual basic项目并将之命名为RunExcelDLL,并删
除缺省的Form，再增加一个新模块到 basMain。增加下列代码到模块的声
明段：
　　　Option Explicit
　　　Private ExcelWasNotRunning As Boolean
　　　Private Declare Function FindWindow Lib "user32" Alias _
　　　"FindWindowA" (ByVal lpClassName As String , ByVal _
　　　lpWindowName As Long ) As long
　　　Private Declare Function RegMyServerObject Lib _
　　　"ExcelDll.dll" Alias "DllRegisterServer" () As Long
　　　Private Declare Function ShellExecute Lib "shell32.dll" _
　　　Alias "ShellExecuteA" (ByVal hwnd As Long , ByVal _
　　　LpszOp As String , ByVal lpszFile As String , ByVal _
　　　LpszParams As String , ByVal lpszFile As String , ByVal _
　　　FsShowCmd As Long ) As Long


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

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