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

baomaboy

都没在我本机完成呢，就更别说在别的电脑测试了。本就不是发布，发布会开新帖的，呵呵。
看了你的截图，立刻传到别的电脑上测试，确实如图所示，而且是一打开就出错，分析应该是别的电脑缺少exe引用的系统部件，为了减少代码在程序中做了多个对系统部件的引用用于前期绑定，估计应该是这原因吧，因我在我电脑上可以正常运行，只不过还没写完。
如果确实是缺少系统部件的原因，那要么要求人补全系统部件，要么修改代码替换引用部件所完成的功能，怎么做都是麻烦。


已在新帖发布：
http://club.excelhome.net/thread-727017-1-1.html

[ 本帖最后由 baomaboy 于 2011-6-4 12:43 编辑 ]

fecmen

楼主的窗体上好像也没有什么花俏的控件吧？还引用什么呢？不理解。

baomaboy

从不用花哨的控件，只求简略，不求花哨，只求节省空间。
C:\Documents and Settings\Administrator\桌面\EXKZ.DLL 从中返回文件名 exkz.dll 的话可以 用字符串分解 更可以做个函数增强适用性
但是 getfilename("C:\Documents and Settings\Administrator\桌面\EXKZ.DLL" ) 就完成的事，就不想自写代码了，引用一下就行了，
以上所说只是比喻，不要再以此论事了，也所以 和花哨没关系 不用在猜测了 东西都没写完 我多说也无意义。
不过  fecmen  确实很 “聪明”  每每都能用这个办法 让我自己说出你想知道的

自写代码实现了一个功能替换了一个自认为较其他不常见的控件，希望对症。只是代码增加了1/4，又90k增加到120k了。
在 http://club.excelhome.net/thread-727017-1-1.html 提供！

[ 本帖最后由 baomaboy 于 2011-6-4 10:57 编辑 ]

zhj1978

你们在干吗，编写什么呀，只有你们两个人知道

baomaboy

原帖由 zhj1978 于 2011-6-4 12:40 发表
你们在干吗，编写什么呀，只有你们两个人知道

我们在编这个 http://club.excelhome.net/thread-727017-1-1.html

fecmen

扫描已注册Dll中的函数，我的也已经实现。呵呵。你的初次发布程序出错知道什么原因了，是因为没有引用TLBINF32.DLL的原因吧？

你的程序其实还有点Bug。加载时如果有重名，还在加载，并且.xla也加载成DLL类似的模式。

[ 本帖最后由 fecmen 于 2011-6-4 18:08 编辑 ]

baomaboy

一、 我就说你很聪明吗，动手能力也强，我只是提示了一下缺少系统组件，你就找到了TLBINF32.DLL
二、重名其实不是个很大的bug(之所以会重名也是因为放弃了excel本身的add方法，程序由始至终不打开excle一次)
1.其实代码中有判断重名就不加载的语句，你试试就知道了，只有在比如列表没更新，或者有时安装过的情况下才会出现。
2.为什么没继续完善他到完全判断加载过就不加载了呢，因为这个不是很重要，你在open中无论加载多少个同样的项目，excel运行后都只加载一个，而且会把其他同名的删除，只保留一个，有excle的智能判断，就不用浪费更多代码。如果只判断同名的话扫描一下注册表比较一下很容易你知道的，问题是按钮多了，功能全是在操作那东西，仅删除列表的、既删列表又删文件的、清空列表不删文件的、删所有文件和列表的、如果操作完一项后状态不及时更新就容易误判，不过你去试一下新版，重名的几率不是很大。
三、xla加载dll的模式？指的是什么意思？xla我用的就是标准方式啊，和系统的一样。

[ 本帖最后由 baomaboy 于 2011-6-4 19:31 编辑 ]

baomaboy

新版在此 相信你能完善的更好。
http://club.excelhome.net/thread-727017-1-1.html

zhj1978

如何用VB编写的SUB过程dll，excel的vb编辑器中能自动引用呢，不需要手工引用呢

wxhnr

原帖由 zhj1978 于 2011-6-5 11:02 发表
如何用VB编写的SUB过程dll，excel的vb编辑器中能自动引用呢，不需要手工引用呢

是图片中的引用吗？

这个不用引用，之前只需要Regsvr32注册一次(如：Regsvr32.exe 工程1.dll)，比如用下面的代码就可以调用工程1.DLL里的函数hello()

Sub aa()
    Dim cc As Object
   
    Set cc = CreateObject("工程1.class1")
    MsgBox cc.hello()   '调用函数
    Set cc = Nothing
   
End Sub