With the current article, I simply present a good way to list all the AddIns you have in MS Office, using VBA.
Pretty much, I declare a string array and I redimensionize it. Then for each addin in the application, I take its name and I save it into a string. At the end I print the string in a msgbox, and because I have used “vbCrLf”, each addin name is on a separate line.
It is really as simple as that. I am sure it can be simpler, but I could not find a way to avoid the array. If you find one – let me know 🙂
Here comes the code:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Sub AddInsCheck() Dim AddI As AddIn Dim i As Integer Dim counter As Integer Dim vAddIns() As String Dim strDisplay As String counter = Application.AddIns.Count ReDim vAddIns(counter) i = 1 For Each AddI In Application.AddIns.Item vAddIns(i) = AddI.Name strDisplay = strDisplay & AddI.Name & vbCrLf i = i + 1 Next AddI MsgBox strDisplay, vbCritical, "vit - consulting.com" End Sub |
Keep calm and learn to code! 😀