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

fecmen · 发表于 2011-5-21 22:14

不过楼主不妨也透露下思路啊。搞得我下面摸索那么辛苦~~~~~~~~

baomaboy · 发表于 2011-5-21 22:21

不要说思路了，我不是连源码都给出了吗，在1楼你还没看吧。

'*****************************************************************************
' FileName: Setup.VBS
' Author: baomaboy
' Abstract: Excel_VBA自定义函数集安装程序
'*****************************************************************************
On Error Resume Next
Dim WshShell,FSO
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
DllPath = FSO.GetSpecialFolder(1)
intAnswer = MsgBox("【是】安装[通用工程试验函数集]到系统，"&Chr(10)&Chr(10)&"【否】卸载[通用工程试验函数集]从系统。 ", vbQuestion + vbYesNoCancel, "安装 - 通用工程试验函数集 - by baomaboy")
If intAnswer = vbYes Then
For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='EXCEL.EXE'")
Process.Terminate (0)
Next
FSO.GetFile("GCSY.DLL").Copy(DllPath &"")
WshSHell.Run ("regsvr32 /s " & FSO.BuildPath(DllPath,"GCSY.DLL")), vbHide
WScript.Sleep 1365
dim oXL
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Set oAddin = oXL.AddIns.Add("工程试验.SYHS", True)
oAddin.Installed = True
oXL.Quit
Set oXL = Nothing
WshSHell.popup vbcr & vbcr & "安装通用工程试验函数集完成......", 5, "安装成功 - 通用工程试验函数集 - by baomaboy", 0 + 64
end if
If intAnswer = vbNo Then
WshSHell.Run ("regsvr32 /s /u " & FSO.BuildPath(DllPath,"GCSY.DLL")), vbHide
WScript.Sleep 1365
FSO.DeleteFile(FSO.BuildPath(DllPath,"GCSY.DLL"))
WshSHell.popup vbcr & vbcr & "卸载通用工程试验函数集完成......", 5, "卸载成功 - 通用工程试验函数集 - by baomaboy", 0 + 64
end if
If intAnswer = vbCancel Then
end if
Set WshSHell = Nothing
Set FSO = Nothing
Set oXL = Nothing
WScript.Quit(0)

复制代码

baomaboy · 发表于 2011-5-21 22:25

不是已经自动化了吗？怎么会“但离自动化差那么一步”?
关键就那么两句，要不在加上注释：

Set oAddin = oXL.AddIns.Add("工程试验.SYHS", True)'''相当于手动在自动化服务里寻找并添加到加载宏列表
oAddin.Installed = True'''相当于手动在加载宏列表里勾选

有没有觉得和你32楼链接百度空间的例子相似啊。

到此本贴已经完成了标题所述（COM加载宏封装自定义函数并全自动安装）的全部过程：
1、附件_自定义函数封装最简示例.rar (以VB源码的形式完整封装了一个例子“范围随机数”自定义函数，其实加添一句做成易失性函数更合适）
2、附件_自定义函数安装最简示例.rar (封装完了就涉及应用了，总不能每每手动去加载吧，多不专业！又是源码，VBS、你可以任意改VBA或VB，我自己用的VB）
3、附件_函数安装自动化实例.rar (一个DLL搭配一个VBS安装多不专业，好，用winrar将dll和vbs合成一个setup.exe有没有点专业的意思?如果你觉得winrar还不专业你可以去用Inno Setup 、 NSIS 做)

另外关于两个不公开大家就不要再说什么“楼主不厚道”“本来很简单的东西，越弄越复杂，很是无聊”之类的话了，去“原创发表”版看看，包括几个置顶贴有几个是以VBA形式出现的，同样都是“不公开”，也许只是“不公开”的理由各不相同。其实无论作为分享者或被分享者用对了心态最重要，我求助别人时别人指点我我说非常感谢，别人不指点，我自己替别人找理由，那就是人家没有义务必须指点我。

[ 本帖最后由 baomaboy 于 2011-5-22 00:33 编辑 ]

baomaboy · 发表于 2011-5-22 01:23

原帖由 fecmen 于 2011-5-21 22:12 发表 [url=http://club.excelhome.net/redirect.php?goto=findpost&pid=4899155&ptid=701984][img]
20楼的代码已经能成功注册，但离自动化差那 ...

说实话这段代码这是我第一次见，刚才测试了一下没成功啊，msgbox了一下函数返回的是个数值453，什么意思？是注册成功了，还是错误值?

如果注册成功指的是只实现了regsvr32 GCSY.DLL的效果，加载到宏列表中还要其他代码的话，那用这么多句替换一句regsvr32 GCSY.DLL就不值得了吧。

谢谢 fecmen 不管是简单了还是复杂了都是一种新方法

[ 本帖最后由 baomaboy 于 2011-5-22 01:32 编辑 ]

zhj1978 · 发表于 2011-5-22 13:48

请楼主和23楼公布你们的VB代码附件

zhj1978 · 发表于 2011-5-22 14:35

我得附件excel如何自动引用textqs.dll

zhj1978 · 发表于 2011-5-23 09:15

请帮忙解决啊

fecmen · 发表于 2011-5-23 09:39

谢谢楼主分享源码。不过我用20楼思路的确实现了与你相同的功能。因程序不在此电脑上不便上传，回头附上。是你的程序漏了马脚给了我灵感。建议做成Excel打开与否都能安装，另发现你的程序有时在此处注册了，换个地方注册时容易出问题。你的安装程序Install.exe是否还捆绑了其他程序呢？

[ 本帖最后由 fecmen 于 2011-5-23 09:42 编辑 ]

fecmen · 发表于 2011-5-23 09:55

另你的Istall.exe用到了vbs了吗？运行时有闪屏的现象，我的exe中的注册功能大部分用API函数实现的。当然外加另外两句代码

[ 本帖最后由 fecmen 于 2011-5-23 09:57 编辑 ]

baomaboy · 发表于 2011-5-23 09:59

建议做成Excel打开与否都能安装

这是分清况的，如果从未安装过的情况下本来就是excel打开与否都能安装，但入果安装过的情况下，excle打开的话会一直加载dll你根本不能安装，这是微软的安全机制，任何人包括微软自己也避不开，你更新软件或杀毒软件更新时为什么要求你重启计算机才能完成更新？这个是避不开的，如果我不结束excle，我怎么替换正被它调用的dll文件?

你的安装程序Install.exe是否还捆绑了其他程序呢？

你试试用VB在窗体里写几行代码后文件就够30k了，我哪有空间去捆绑其他程序啊。

[ 本帖最后由 baomaboy 于 2011-5-23 10:06 编辑 ]

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

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

回复 33楼 fecmen 的帖子

回复 33楼 fecmen 的帖子

评分

回复 40楼 fecmen 的帖子