Another method of getting the lengthy reference description

In my blog posting Fetching the reference description I was told that adding a reference to Microsoft Visual Basic for Applications Extensibility 5.3 and some code would give you the lengthy reference text.   Turns out though you don’t need the VBA Extensibility reference if you Dim refIDE as an object.   The following code works quite nicely.

Sub DebugPrintReferencesIDE()

Dim refIDE As Object

    For Each refIDE In Access.Application.VBE.ActiveVBProject.References
        Debug.Print IIf(refIDE.IsBroken, "Broken ", "") & _
             refIDE.Name & " " & vbTab & refIDE.Major & "." & refIDE.Minor & vbTab & _
             refIDE.Description & vbCrLf & vbTab & vbTab & vbTab & vbTab & refIDE.FullPath
    Next refIDE

End Sub

P.S.  I have no idea why I tried this other than I wanted to use this without a reference and Dimming refIDE as an object was the first thing to do.   I was quite surprised when the code actually worked.

Published Fri, Jul 17 2009 22:39 by Tony

Leave a Comment

(required) 
(required) 
(optional)
(required)