AddIn-Namen auslesen

Thema: Allgemein - Gruppe AddIn

Arbeitsmappe

023398

Problem: Die Namen aller geöffneten AddIns sollen ausgelesen werden.

StandardModule: Modul1

Sub Auslesen()
   Dim oVBP As Object
   On Error GoTo ERRORHANDLER
   For Each oVBP In Application.VBE.VBProjects
      If Right(oVBP.Filename, 3) = "xla" Then
         MsgBox oVBP.Filename
      End If
ERRORHANDLER:
   Next
   On Error GoTo 0
End Sub