Question

一打开excel文件就自动引用一个用VB制作成的DLL文件，无需使用VBA中的引用对话框！

DLL文件名称：dd.dll
DLL文件路径：C:\WINDOWS\system32\dd.dll

工作薄名称：生日计算.xls
工作薄路径：C:\Documents and Settings\Administrator\桌面\生日计算.xls

就是一台新的电脑，以前没有过上述文件，现在我把这些文件复制到这台新电脑中（复制到上述路径），然后一打开这个“生日计算.xls”，就会自动引用“dd.dll”,而不用去VBA中点引用来手动进行引用。

我是菜鸟，麻烦各位了，最好是完整的代码，我复制过来就可以用了，再一次感谢！

Answer 1

自动引用不得行吧。可以自动注册。代码如下：代码放到生日计算.xls工作表的WORKBOOK.OPEN中。

Private Sub Workbook_Open()
   Dim SourceFile, DestinationFile
'      SourceFile = “C:\WINDOWS\system32\dd.dll”   ' 指定源文件名。
        DestinationFile = "c:\windows\system32\MSCOMCT2.OCX"   ' 指定目的文件名。
'        FileCopy SourceFile, DestinationFile    ' 将源文件的内容复制到目的文件中
        Shell "regsvr32 " & DestinationFile, vbHide '注册控件
        MsgBox "如果显示注册成功的信息,该文件你可以可删除."
       Application.Quit
End Sub

追问

代码复制进去后，这个DLL文件仍没有被引用到此工作表当中，导致我无法运行DLL文件中的代码，是什么原因呢？我的意思是一打开生日计算这个工作表，DLL文件就自动引用了，不要用VBA中的引用对话框

追答

我知道你的意思，你说的是“自动引用”对吧？不想手动去选？

我给你的代码是自动注册；

如果你不想手动引用，可以用创建法。比如正则我们不想手动引用。可以使用语句：

Dim regex As Object
  Set regex =CreateObject("VBScript.RegExp") '创建正则对象

但是，如果是你自己创建的DLL文件，个人认为想自动引用，应该不得行

追问

是的，就是这个意思，我也查了一下，是先自动注册，再自动引用，就是不知道方法，您能直接帮我写一个完整的代码吗，麻烦了

追答

需要DLL文件，先手动引用，找到GUID，你参考下这里，

http://www.360doc.com/content/13/0128/14/7552213_262854561.shtml

追问

可是我想自动引用，有没有更好的办法，

追答

给你的网站就是自动。你进去看下。

追问

不是我想要的，可能我看不懂吧，您能直接帮我改好代码吗，谢谢

Answer 2

找到加载宏，然后从加载宏里设置引用。