安装RubberDuck后Explorer持续转圈无法正常加载问题求助

直接原因 #

你提供的测试模块代码存在语法错误，导致RubberDuck解析代码时卡顿：
在TestInitialize方法中，.Debug.Print "TestInitialize"前多了一个多余的英文句点，属于无效VBA语法，会触发编译异常，RubberDuck扫描模块时会因为该错误卡住，无法完成索引构建，导致Explorer一直转圈加载。

修正后的标准测试模块代码 #

Option Explicit
Option Private Module

'@TestModule
'@Folder("Tests")

Private Assert As Object
Private Fakes As Object

'@ModuleInitialize
Private Sub ModuleInitialize()
   'this method runs once per module.
   Set Assert = CreateObject("Rubberduck.AssertClass")
   Set Fakes = CreateObject("Rubberduck.FakesProvider")
   Debug.Print "ModuleInitialize"
End Sub

'@ModuleCleanup
Private Sub ModuleCleanup()
   'this method runs once per module.
   Set Assert = Nothing
   Set Fakes = Nothing
   Debug.Print "ModuleCleanup"
End Sub

'@TestInitialize
Private Sub TestInitialize()
   'This method runs before every test in the module.
   Debug.Print "TestInitialize"
End Sub

'@TestCleanup
Private Sub TestCleanup()
   'this method runs after every test in the module.
   Debug.Print "TestCleanup"
End Sub

其他可能的排查点 #

• 确认安装的RubberDuck架构和Office架构匹配，32位Office需安装32位RubberDuck，64位Office需安装64位RubberDuck，架构不匹配会导致加载异常。
• 开启VBA工程访问权限：进入文件→选项→信任中心→信任中心设置→宏设置，勾选「信任对VBA工程对象模型的访问」，RubberDuck需要该权限读取工程内的代码信息。
• 若你的VBA工程代码量较大，首次启动RubberDuck时需要完成全量代码索引构建，可等待3-5分钟确认是否为正常的索引构建过程。
• 暂时禁用其他VBA相关插件，排查是否存在插件冲突导致加载卡顿。

内容的提问来源于stack exchange，提问作者DanM