再次提出DLL自动引用的问题

我爱myvba

Excel中DLL自动引用的例子：
Thisworkbook中的代码是：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Shell "regsvr32 /u /s" & VBA.Chr(34) & ThisWorkbook.Path & "\ldhdll.dll" & VBA.Chr(34), vbHide
End Sub
Private Sub Workbook_Open()
  On Error GoTo errline
  Shell "regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "\ldhdll.dll" & VBA.Chr(34), vbHide
  Exit Sub
errline:
  MsgBox "程序在注册自定义DLL函数时出现错误，可能会影响示例效果。"
End Sub

模块中的代码是：
Sub DLLtest()
  Dim abc As New Mytest
  abc.test
  Set abc = Nothing
End Sub

附件： ExcelDLL调用示例.rar (17.99 KB, 下载次数: 70)

2009-12-28 15:29 上传

点击文件名下载附件

这个附件不管拷贝到那个机子中都可以运行，不用手动引用，也就是不用通过　工具--引用　的方法就可以使用。

我把这个例子的代码移植到word中就不行，请教为什么？
Thisdocument中的代码：
Private Sub document_BeforeClose(Cancel As Boolean)
  Shell "regsvr32 /u /s" & VBA.Chr(34) & ThisDocument.Path & "\OnlyTest.dll" & VBA.Chr(34), vbHide
End Sub
Private Sub document_Open()
  On Error GoTo errline
  Shell "regsvr32 /s  " & VBA.Chr(34) & ThisDocument.Path & "\OnlyTest.dll" & VBA.Chr(34), vbHide
  Exit Sub
errline:
  MsgBox "程序在注册自定义DLL函数时出现错误，可能会影响示例效果。"
End Sub

模块中的代码：
Private Sub dlltest()
Dim MyDll As New Test
MyDll.RunFirst
End Sub
运行模块中的代码出现错误：


附件： WordDLL调用模仿.rar (10.67 KB, 下载次数: 8)

2009-12-28 15:29 上传

点击文件名下载附件

我爱myvba

晕，为什么Excel中可以，Word中就不可以呢？

tangqingfu

原帖由 我爱myvba 于 2009-12-27 17:16 发表
就像我在一楼说的那样，当别人拿到 onlytest.dll 和 test.doc 这两个文件时，要运行 test.doc 里面的宏代码，必需先进行　工具--引用　找到　onlytest.dll 这个文件，尔后才能运行宏，如何不通过　工具--引用　这一步 ...

我也想知道，如何不通过工具--引用　这一步，就能勾选指定的动态链接库

tangqingfu

守柔 发表于 2009-12-27 08:58
我想楼主应该明白，什么是DLL。
用户自己编译的DLL文件，不是公共的，系统的，首先在客户端上必须要有这个 ...

谢谢守版的分享！

yeshuangyong

我也发现自定义函数的dll可以直接自动引用，其他的就有问题，不知何故？？

yutiger0

最近也在看这个问题，一直没有解决！学习中

李道影

ThisWorkbook.VBProject.References.AddFromFile ThisWorkbook.Path & "/1.dll"   ‘1.DLL 改成你自己的