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

baomaboy · 发表于 2011-6-7 14:34

不在vba，在vb6可以用吗？引用5.3后出现新错误运行时错误要求对象错误定位在dll文件的路径上路径确认没错

wxhnr · 发表于 2011-6-7 14:42

原帖由 baomaboy 于 2011-6-7 14:34 发表
不在vba，在vb6可以用吗？引用5.3后出现新错误运行时错误要求对象错误定位在dll文件的路径上路径确认没错

只在VBA里用过

wxhnr · 发表于 2011-6-7 14:45

不过这个引用应该是针对特定的文件的，比如有三个文件：aaa.xls,bbb.xls,ccccc.xls,假如你在aaa.xls里添加了引用5.3，难道打开bbb.xls或者ccccc.xls会自动引用5.3吗？凭感觉好像不行吧！

[ 本帖最后由 wxhnr 于 2011-6-7 15:58 编辑 ]

wxhnr · 发表于 2011-6-7 15:06

刚试了一下，用VB6，不需要引用什么MVBFE5.3就可以为工作薄添加引用，下面这个例子加的是我自己临时写的类库

Private Sub Command1_Click()

On Error GoTo refsadderr

Dim xlapp As Object
Dim wbk As Object

Set xlapp = CreateObject("excel.application")
Set wbk = xlapp.workbooks.open(App.Path & "\book3.xls")

wbk.vbproject.References.AddFromFile App.Path & "\工程1.dll" '运行前先用Regsvr32注册

wbk.Close True

Set wbk = Nothing

xlapp.quit

Set xlapp = Nothing

MsgBox "添加成功"

Exit Sub

refsadderr:

wbk.Close True

Set wbk = Nothing

xlapp.quit

Set xlapp = Nothing

MsgBox "添加失败"
End Sub

运行后重新打开Book3.xls发现"工程1.Class1"这个类已经能在Book3.xls里定义新对象了

baomaboy · 发表于 2011-6-7 15:57

谢谢 wxhnr 提供这么好的示例，能试试vb6里给自己添加引用(不是给工作薄添加引用)行不？我试没成功。

wxhnr · 发表于 2011-6-7 16:11

干吗要在VB6里添加引用呢？编译成EXE了还能添加吗？

baomaboy · 发表于 2011-6-7 16:30

原帖由 wxhnr 于 2011-6-7 16:11 发表
干吗要在VB6里添加引用呢？编译成EXE了还能添加吗？

我倒是没有非想在vb里引用，我是看 fecmen 是这个意思，好像他并不是给工作薄引用，而是给exe引用，

原帖由 fecmen 于 2011-6-6 22:30 发表
不知VB里是否有如下用法，我声明了却找不到对象，需要引用什么吗？：
Dim ref As Reference
On Error Resume Next
Set ref = References.AddFromFile(CurrentProject.Path & "\ClsFindString.dll")

意思是编译之前添加(和工作薄添加一样，就是省去手工引用的步骤)，添加好了再编译。

fecmen · 发表于 2011-6-9 11:14

我的Excel加载宏管理器快出炉了，因本人水平有限导致一些小问题困难着我影响进度（如在调试窗口中运行列表显示没问题，程序一编译出来就出问题），虽然有些仍然没有搞明白，但还是顺利解决了。最后的收尾工作尚未结束，先拿出图来晒晒吧。目前主要在代码规范、容错处理、流程设计上花费不少时间！
应了一句话，慢工出细活吧。

[ 本帖最后由 fecmen 于 2011-6-9 11:20 编辑 ]

baomaboy · 发表于 2011-6-9 11:44

很有些专业的味道啊，恭喜 fecmen 。

zhj1978 · 发表于 2011-6-9 13:01

请把你们讨论的东西做个汇总，总结吧，这样看到清楚明白

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

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

回复 200楼 wxhnr 的帖子

回复 204楼 wxhnr 的帖子

回复 208楼 fecmen 的帖子