如何通过VBA刷新Excel加载项列表？加载项为空问题求助

这是Excel 2007的一个已知行为：默认情况下，Excel启动后不会自动扫描并填充Application.AddIns集合，只有当用户手动打开过加载项对话框（文件>选项>加载项）后，Excel才会加载所有加载项的元数据到这个集合里。你试过的VBE.AddIns.Update和COMAddIns.Update只对应VBA编辑器加载项和COM类型加载项，和Application.AddIns（Excel原生加载项，如.xla/.xlam）是完全独立的三个集合，所以没用是正常的。

下面给你两种实用的解决方案：

方案1：自动触发加载项集合刷新（无需手动操作界面） #

我们可以通过代码模拟打开加载项对话框的动作，让Excel自动刷新Application.AddIns集合，再快速关闭对话框。代码示例：

Sub RefreshAndListAddIns()
    ' 弹出加载项对话框，Excel会自动刷新AddIns集合
    Application.Dialogs(xlDialogAddIns).Show
    ' 立即关闭对话框（SendKeys需要确保Excel窗口处于焦点）
    SendKeys "{ESC}"
    
    ' 现在可以正常遍历AddIns集合了
    Dim targetAddIn As AddIn
    Debug.Print "已加载的Excel加载项列表："
    For Each targetAddIn In Application.AddIns
        Debug.Print "名称：" & targetAddIn.Name & " | 是否已安装：" & targetAddIn.Installed
    Next targetAddIn
End Sub

⚠️ 注意：SendKeys的稳定性依赖Excel窗口处于前台，如果你的代码是后台运行，可能需要用API来更可靠地关闭对话框，不过对于大多数场景，这个方法足够简单有效。

方案2：直接读取注册表获取加载项信息 #

Excel的加载项配置信息其实存储在注册表中，我们可以绕过Application.AddIns集合，直接读取注册表来获取所有加载项的信息，这样完全不需要依赖Excel的集合刷新。代码示例（读取当前用户的Excel 2007加载项）：

' 先声明注册表操作的API函数
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
    ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" _
    (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, _
    lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, _
    lpData As Byte, lpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Const HKEY_CURRENT_USER = &H80000001
Const KEY_READ = &H20019

Sub GetAddInsFromRegistry()
    Dim hKey As Long, retVal As Long
    Dim valueName As String * 256, valueData As Byte * 256
    Dim valueNameLen As Long, valueDataLen As Long
    Dim index As Long
    
    ' Excel 2007对应的Office版本是12.0，所以注册表路径是这个
    retVal = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Excel\Addins", 0, KEY_READ, hKey)
    
    If retVal = 0 Then
        index = 0
        Debug.Print "注册表中的Excel加载项列表："
        Do
            valueNameLen = 256
            valueDataLen = 256
            retVal = RegEnumValue(hKey, index, valueName, valueNameLen, 0, 0, valueData, valueDataLen)
            
            If retVal = 0 Then
                ' 输出加载项的ProgID/名称
                Debug.Print Left(valueName, valueNameLen - 1)
            End If
            index = index + 1
        Loop Until retVal <> 0
        
        RegCloseKey hKey
    Else
        Debug.Print "无法打开注册表项，请检查权限"
    End If
End Sub

如果需要读取机器级别的加载项，把注册表路径改成HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Excel\Addins即可，但需要管理员权限。

额外说明 #

• Application.AddIns：针对Excel原生加载项（.xla、.xlam等）
• Application.COMAddIns：针对COM类型的加载项（如.dll格式的插件）
• Application.VBE.AddIns：针对VBA编辑器的加载项
  三个集合是独立的，刷新其中一个不会影响另外两个，所以要根据你要检查的加载项类型选择对应的集合。

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