VBA 打印所有 COM 插件

Question

我试图通过 VBA 打印我的 excel 应用程序中的所有 com 插件，但下面的代码有问题。错误似乎在每一行...非常感谢任何想法

Sub showAddins()
    Dim excelApp As Excel.Application
    Dim myAddin As Excel.AddIn

    Set excelApp = CreateObject("Excel.Application")

    For Each myAddin In excelApp.COMAddIns

        Debug.Print myAddin.Name

    Next myAddin

End Sub

Answer 1

使用自动化打开 Excel 时不会加载插件，因此您在代码中创建的新实例中会加载 none。

只需在您已打开的 Excel 实例中使用现有的应用程序引用：

Sub showAddins()

    Dim myAddin 'as variant

    For Each myAddin In Application.COMAddIns

        Debug.Print myAddin.Description '<< not Name

    Next myAddin

End Sub

VBA 打印所有 COM 插件

VBA print all COM addins

excel

vba

excel-addins