VBA alle COM-Addins drucken

Question

Ich versuche, alle COM-Add-Ins in meiner Excel-Anwendung über VBA zu drucken, aber mit dem unten stehenden Code stimmt etwas nicht. Der Fehler scheint auf die für jede Zeile zu sein ... irgendwelche Gedanken viel

geschätzt

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

Add-Ins werden nicht geladen, wenn Excel geöffnet Automatisierung verwenden, so wird es keine in der neuen Instanz, die Sie in Ihrem Code erstellen geladen sein .

Verwenden Sie einfach den bestehenden Anwendungsverweis in der bereits geöffneten Excel-Instanz:

Sub showAddins() 

    Dim myAddin 'as variant 

    For Each myAddin In Application.COMAddIns 

     Debug.Print myAddin.Description '<< not Name 

    Next myAddin 

End Sub