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
运行效果: