vba - 如何使用宏代码添加 Microsoft ActiveX 数据对象 6.1 库和 Microsoft VBScript 正则表达式 5.5

Question

我总是通过“Tools...->References...”将引用添加到我的 .bas 模块中。现在我想使用宏代码自动添加引用。我需要添加两个引用:Microsoft ActiveX Data Objects 6.1 Library和 Microsoft VBScript Regular Expressions 5.5 .我发现了一段似乎可以做我想做的代码:

Sub ListReferences()
    On Error GoTo CanNotAddReferences
    Application.VBE.ActiveVBProject.References.AddFromFile "PATH_TO_FILE"
    Exit Sub
CanNotAddReferences:
    MsgBox "Can not add reference"
End Sub

但我不知道如何获取文件路径( PATH_TO_FILE )。也许有人可以帮助我？提前致谢。

Answer 1

您可以在 References VBAProject 对话框(工具 >> 引用)中找到文件路径。寻找位置属性。



编辑:正如评论中所指出的，您不能总是阅读全名。该子输出所有当前引用。

Sub ReadExistingRefences()
' Displays all current refernce names and full paths.
Dim ref As Object

    For Each ref In Application.VBE.ActiveVBProject.References
        MsgBox "Name: " & ref.Name & vbCrLf & ref.FullPath
    Next
End Sub

警告

你真的应该阅读@MacroMan 对 OP 的评论。尽管您可以以编程方式更新引用，但您可能不应该这样做。