刷新Excel加载项列表

Question

我正在尝试与VBA检查是否安装了Excel外接程序。但是，除非我进入Application.Addins界面并列出插件，然后Application.Addins将填充所有插件，否则插件列表( Excel )将保持为空。

我尝试使用"Application.VBE.AddIns.Update“和"Excel.Application.COMAddIns.Update”，但得到了相同的结果。

使用Windows 10、Excel 2007

Answer 1

AddIns是一个集合。试着这样看它们：

Sub TestMe()

    Dim cnt         As Long
    For cnt = 1 To AddIns.Count
        Debug.Print AddIns(cnt).Name
        Debug.Print AddIns(cnt).Installed
    Next cnt

End Sub

然后你就会看到你得到了什么。这是标准：

ANALYS32.XLL
True
ATPVBAEN.XLAM
False
SOLVER.XLAM
True

Answer 2

Office区分外接程序和COM外接程序。它们存在于不同的集合中。若要枚举COM外接程序，请执行以下操作：

Dim ai As COMAddIn
For Each ai in Application.COMAddIns
    Debug.Print ai.Description
Next ai