office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access vba查看所有引用

2017-12-30 16:17:00
十段
轉貼
3142

在VBE窗口中,我們可以通過工具-引用,引用相關的庫類文件。隻有引用瞭纔能調用。


在引用一些庫類時,往往是本地計祘機有,在其他未必有。所以我們需要判斷有成功引用對象。

在VBA中, 通過一箇自定義的函數來查看所有引用。

Function ReferenceInfo()
   Dim strMessage As String
   Dim strTitle As String
   Dim refItem As Reference
   
   On Error Resume Next
   
   For Each refItem In References
      If refItem.IsBroken Then
         strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
      Else
         strMessage = "Reference: " & refItem.Name & vbCrLf _
            & "Location: " & refItem.FullPath & vbCrLf
      End If
      Debug.Print strMessage
   Next refItem
End Function

穫取引用對象

    分享