COM加载宏封装自定义函数并全自动安装最简实例

baomaboy · 发表于 2011-5-26 16:13

VBS源码已经公布了，你自己不会转VB吗？

Const Vs As String = "版本信息: V2.20 - 2011.05.25" & vbCr & vbCr & "版权所有: 2010-2011 玲珑科技"
Const BT As String = "通用扩展EXCEL工具集"
Const FileName As String = "EXKZ.DLL"
Public FilePath
Private Sub Command1_Click() '安装按钮
On Error Resume Next
For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='excel.exe'")
Process.Terminate (0)
Next
Shell "regsvr32 /s " & FilePath & "" & FileName
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Set oAddin = oXL.AddIns.Add("EXKZ.ButtonEvent", True)
oAddin.Installed = True
oXL.Quit
Set oXL = Nothing
Unload Me
End Sub
Private Sub Command2_Click() '卸载按钮
On Error Resume Next
For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='excel.exe'")
Process.Terminate (0)
Next
Shell "regsvr32 /s /u " & FilePath & "" & FileName
Kill FilePath & "" & FileName
Unload Me
End Sub
Private Sub Command3_Click() '退出按钮
Unload Me
End Sub
Private Sub Form_Load() '窗体载入
On Error Resume Next
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
'------------------初始化安装窗口信息
Me.Caption = "安装 " & BT
lblTitle.Caption = vbCr & BT
lblDescription.Caption = Vs
FilePath = Split(Environ("Path"), ";")(0)
End Sub

复制代码

就一个窗体配3个按钮，我自己的安装程序都是这个样子，如：
http://club.excelhome.net/redire ... 1468&ptid=28166

120HYH · 发表于 2011-5-26 16:16

好资料啊。谢谢。

zhj1978 · 发表于 2011-5-26 16:26

非常感谢 baomaboy，还有另外一个楼主没有公布代码

baomaboy · 发表于 2011-5-26 16:56

原帖由 fecmen 于 2011-5-26 15:48 发表

没有源码可以初步弄到结构啊，声明时就能看到类名和属性啊。

奥原来如此啊理解为什么你开始没看到test了。

zhj1978 · 发表于 2011-5-26 17:10

baomaboy已经公布VB代码，请fecmen 也公布，遵守承诺

baomaboy · 发表于 2011-5-26 17:13

公布与否是自愿的事，没人有义务非公布给你。

zhj1978 · 发表于 2011-5-26 17:18

baomaboy已经公布VB代码，请fecmen 也公布，遵守承诺

tanhong · 发表于 2011-5-26 18:14

真是不错的帖子！
只是现在大多在用Win7 了，Win7系统无法通过的RegSvr32实现对DLL的正常注册，必须手动以管理员身份运行才行。

[ 本帖最后由 tanhong 于 2011-5-26 18:16 编辑 ]

baomaboy · 发表于 2011-5-26 18:23

江羽很少上来啊？
嘿嘿win7的装机量不知道，只是我单位的办公电脑都是xp+2003，个人的本本除了一个同事的是win7外其他的也都是xp

据说也准备换xp说这找不到菜单在哪，win7是买机时默认安装的。

不过更新换代是大势所趋、xp总是会过去的.....

tanhong · 发表于 2011-5-26 19:40

原帖由 baomaboy 于 2011-5-26 18:23 发表
江羽很少上来啊？
嘿嘿win7的装机量不知道，只是我单位的办公电脑都是xp+2003，个人的本本除了一个同事的是win7外其他的也都是xp

据说也准备换xp说这找不到菜单在哪，win7是买机时默认安装的。

不过更新换代 ...

哈哈！我多在ACCESS软件网，E这块现在研究的少了，所以上来也少些了。

baomaboy兄说的是，系统更新在所难免，我们也得与时俱进……

		自动登录	找回密码
密码			免费注册

[原创] COM加载宏封装自定义函数并全自动安装最简实例

回复 82楼 zhj1978 的帖子

评分

回复 87楼 zhj1978 的帖子

回复 90楼 tanhong 的帖子