如何用vba遍历所有的excel加载项?

如下图所示:

当单击“开发工具”选项卡下的“加载项”工作组中的“Excel 加载项”时,会弹出“加载宏”对话框,列出了当前可用的所有excel加载宏。

在vba中,可以使用 AddIn 对象表示任意一个excel 加载宏 ,如果要遍历所有的excel 加载宏,可以使用如下的代码:

 Sub QQ1722187970()
    Dim oAddin As AddIn
    For Each oAddin In Excel.Application.AddIns
        With oAddin
            '加载宏的文件名
            Debug.Print .FullName
             '加载宏的CLSID
            Debug.Print .CLSID
             '加载宏是否安装
            Debug.Print .Installed
             '加载宏是否打开
            Debug.Print .IsOpen
             '加载宏的名称
            Debug.Print .Name
             '加载宏的progID
            Debug.Print .progID
             '加载宏的路径
            Debug.Print .Path
        End With
    Next
 End Sub
       

发表评论