Programming Excel with VBA and .NET

Name

Application.COMAddIns([index])

Synopsis

Returns a collection of the installed COM add-ins. If there are no COM add-ins installed, causes an error. The following code lists the COM add-ins:

Sub TestCOMAddins(  )
    Dim c  As COMAddIn
    On Error Resume Next
    For Each c In Application.COMAddIns
        If Err Then Debug.Print "No COM addins."
        Debug.Print Join(Array(c.Description, c.progID, c.Application, _
          c.Connect), ", ")
    Next
End Sub