Excel und VBA - Die Excel-FAQ

AddIn-Namen auslesen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

AddIn-Namen auslesen

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