Question

我正在尝试使用VBA检查是否安装了Excel Addin。但是，Addins列表（Application.AddIns）保持为空，除非我进入Excel界面并列出Addins，然后Application.Addins将填充所有插件。

我尝试使用“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

刷新Excel加载列表

2 个答案: