完全删除参考列表中的引用

Question

我需要从工具/引用下的引用列表中删除引用。不只是取消选中它，将其从列表中完全删除。

我正在尝试加载具有相同名称的另一个引用（DLL），但我不能，我怀疑这是因为列表中已存在该名称的DLL。更改新DLL的文件名无济于事。

Answer 1

这通常是我在删除引用时使用的，这也提供了添加新引用路径的方法。

Sub RemoveRefs()

Dim RefPath As String, X As Long
Const RefName = "Your Reference's Name"
YourNewRefPath = Application.ActiveWorkbook.Path & "\dsofile.dll"

With ActiveWorkbook.VBProject.References
    For X = 1 To .Count
        If .Item(X).Description Like RefName Then
            .Remove .Item(X)
        End If
Next
.AddFromFile (YourNewRefPath)

End With

End Sub

Answer 2

在管理员命令行提示符中使用regsvr32命令

regsvr32 dllfile.dll

此命令将excel visual basic中的现有引用替换为传递给regsvr32的文件的同名文件。