缺少参考删除期间加载DLL时出错

Question

我需要修复（通过VBA Excel代码）由于缺少参考而导致的错误。 我使用此代码，但是当找到丢失的引用并尝试将其删除时，脚本会停止并显示错误“加载DLL错误”。

Sub RemoveReferences()
Dim VBAEditor As VBIDE.VBE
Dim vbProj As VBIDE.VBProject
Dim chkRef As VBIDE.Reference

Set VBAEditor = Application.VBE
Set vbProj = ActiveWorkbook.VBProject

For Each chkRef In vbProj.References
    If chkRef.IsBroken Then
    'MsgBox "Trovata una libreria mancante. Tento la sistemazione."
        vbProj.References.Remove chkRef
    End If
Next

Set vbProj = Nothing
Set VBAEditor = Nothing
End Sub

该脚本在vbProj.References.Remove chkRef行中返回“加载DLL时出错”。 您有解决此错误的想法吗？我只是激活“信任对VBA项目对象模式的访问”。

这是错误的屏幕截图。 Error