如何使用宏代码添加Microsoft ActiveX Data Objects 6.1库和Microsoft VBScript正则表达式5.5

Question

我总是通过“工具...-＆gt;引用...”将引用添加到我的.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

您可以在参考VBAProject 对话框（工具＆gt;＆gt;参考）中找到文件路径。寻找位置属性。

编辑：正如评论中所指出的，您无法始终阅读全名。该子输出所有当前参考。

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的评论。虽然您可以以编程方式更新引用，但您可能不应该。