April 2006
Beginner
1114 pages
98h 16m
English
Application.COMAddIns([index])
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 SubRead now
Unlock full access