10_ExcelVBE/enumerateCOMAddins.bas at master · AlignmentSystems/10_ExcelVBE · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Attribute VB_Name = "enumerateCOMAddins"
Option Explicit
Option Compare Text
Option Base 0
'============================================================================================================================
'
'
'   Author      :       John Greenan
'   Email       :       john.greenan@alignment-systems.com
'   Company     :       Alignment Systems Limited
'   Date        :       10th September 2014
'
'   Purpose     :       Matching Engine in Excel VBA for Alignment Systems Limited
'
'   References  :       See VB Module FL for list extracted from VBE
'   References  :
'============================================================================================================================

Sub EntryPointGetCOMAddinReferences()
'============================================================================================================================
'
'
'   Author      :       John Greenan
'   Email       :
'   Company     :       Alignment Systems Limited
'   Date        :       24th March 2015
'
'   Purpose     :       Matching Engine in Excel VBA for Alignment Systems Limited
'
'   References  :       See VB Module FL for list extracted from VBE
'   References  :
'============================================================================================================================
'Constants
Const strMethodName As String = "enumerateCOMAddins.EntryPointGetCOMAddinReferences "
Const cstrConnect As String = "Connected="
Const cstrCreator As String = " Creator="
Const cstrDescription As String = " Description="
Const cstrProgID As String = " ProgID="
Const cstrGUID As String = " GUID="
'Variables
Dim oCOMAddin As OFFICE.COMAddIn
Dim oTargetWorkbook As Excel.Workbook

Set oTargetWorkbook = ThisWorkbook

For Each oCOMAddin In oTargetWorkbook.Application.COMAddIns
    Debug.Print cstrConnect & oCOMAddin.Connect & cstrCreator & oCOMAddin.Creator & _
    cstrDescription & "[" & oCOMAddin.Description & "]" & cstrGUID & oCOMAddin.GUID & cstrProgID & oCOMAddin.ProgID
Next

End Sub