调试经验——提取Excel的所有可用加载宏（Extract all available Excel addins）

Addins集合对象代表 Microsoft Excel 的所有可用加载宏。下例创建了所有可用加载宏的名称和安装状态的列表。

代码：

Sub DisplayAddIns()
With Worksheets("Addins")
    .Activate
    rw = 1
    For Each ad In Application.AddIns
        .Cells(rw, 1) = ad.Name
        .Cells(rw, 2) = ad.Installed
        rw = rw + 1
    Next
End With
End Sub

运行效果：