Friday, April 11, 2008

Get References of VBA Project Programmtically

Extract References of a VBA Project

The References property returns the set of references in a project. It is an accessor property (that is, a property that returns an object of the same type as the property name).

Sub Get_References_in_Project()

Dim i1
For i1 = 1 To Application.VBE.ActiveVBProject.References.Count

' Get the Name of the Reference
RefName = Application.VBE.ActiveVBProject.References(i1).name

' Get the Description of Reference
RefDesc = Application.VBE.ActiveVBProject.References(i1).Description

'Returns a Boolean value indicating whether or not the Reference object points to a valid reference in the registry. Read-only.
If Application.VBE.ActiveVBProject.References(i1).IsBroken = True Then
RefBroken = True
End If
Next i1

End Sub

1 comment:

  1. Is there a way to do this same thing (or check for a specific reference) using a DAO.Database object?

    I'm trying to loop through a list of almost 1000 databases and identify those with a specific reference library. In order to use the application.VBE... functionality I've found that the database has to be open in the database window (application.OpenCurrentDb()) which also fires all start up forms/autoexec.

    I also need to pass in Passwords for various databases.


Share on Facebook
Related Posts Plugin for WordPress, Blogger...
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.