如何通过VBA启用Excel中崩溃后被取消勾选的已存在COM加载项？

我懂你遇到的麻烦——Excel崩溃后，Oracle Smart View这个COM加载项总会被自动取消勾选，每次手动启用实在太折腾了。你的现有代码已经在遍历COM加载项列表了，只差最后启用的关键一步，我来帮你把代码完善好。

首先要明确：COM加载项的启用状态是通过Connect属性控制的，把这个属性设为True就能直接启用对应的加载项。另外，原代码里的错误处理位置可以调整得更合理，避免遗漏潜在问题。

下面是完善后的代码：

Sub EnableSmartViewAddIn()
    Dim objAddIn As COMAddIn
    Dim addInFound As Boolean
    
    addInFound = False
    
    ' 遍历所有已注册的COM加载项
    For Each objAddIn In Application.COMAddIns
        On Error Resume Next ' 临时忽略加载项访问可能出现的错误
        ' 匹配目标加载项的描述文本
        If objAddIn.Description = "Oracle Smart View for Office" Then
            ' 启用目标加载项
            objAddIn.Connect = True
            addInFound = True
            MsgBox "Oracle Smart View for Office 已成功启用！", vbInformation
            Exit For ' 找到目标后直接退出循环，提升运行效率
        End If
        On Error GoTo 0 ' 恢复默认错误处理机制
    Next objAddIn
    
    ' 如果遍历结束后没找到目标加载项，给出提示
    If Not addInFound Then
        MsgBox "未找到 Oracle Smart View for Office 加载项，请确认它已在COM加载项列表中注册。", vbExclamation
    End If
End Sub

关键细节说明： #

• 用For Each遍历COMAddIns集合，比按索引遍历更直观简洁，也避免了索引越界的风险
• objAddIn.Connect = True是启用加载项的核心语句，这正是你原代码中缺失的部分
• 加入addInFound标志位，用来判断是否成功定位到目标加载项，方便给你明确的反馈
• 调整了错误处理的范围，只在访问加载项属性时临时忽略错误，避免全局屏蔽错误导致隐性问题被掩盖
• 找到目标加载项后用Exit For跳出循环，不用继续遍历剩余项，提升运行效率

你可以把这个宏放到个人宏工作簿里，这样每次打开Excel都能快速运行；甚至可以设置成Excel启动时自动触发，彻底解决崩溃后加载项被禁用的麻烦。

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