Code Snippet "VBA Excel"

Zeigt vorhandene Verweise in einem Projekt an

Verweise werden in der zugehörigen Arbeitsmappe gespeichert. Achung: Zugriff auf Verweise geht unter XP und 2003 nur mit Einstellung 'Extras - Makro - Sicherheit - Register Vertrauenswürdige Quellen - Zugriff auf Visual Basic Projekt vertrauen

Private Sub vorhandeneverweise()
  Const BLN_ALLES As Boolean = False
  Dim objvorhandeneverweise As Object
  Dim objverweis As Object
  Dim strTemp As String
  
  Set objvorhandeneverweise = ActiveWorkbook.VBProject.References

  Debug.Print Application.Name & " " & Application.Version
  For Each objverweis In objvorhandeneverweise
    strTemp = "Bezeichnung: " & objverweis.Description
    If BLN_ALLES Then
      strTemp = vbCrLf & "Bezeichnung: " & objverweis.Description & vbCrLf
      strTemp = strTemp & "Name: " & objverweis.Name & vbCrLf
      strTemp = strTemp & "Pfad: " & objverweis.FullPath & vbCrLf
      strTemp = strTemp & "GUID: " & objverweis.GUID & vbCrLf
      strTemp = strTemp & "Major: " & objverweis.Major & vbCrLf
      strTemp = strTemp & "Minor: " & objverweis.Minor & vbCrLf
      strTemp = strTemp & "Standard-Verweis: " & objverweis.BuiltIn & vbCrLf
    End If
    Debug.Print strTemp
  Next

  Set objvorhandeneverweise = Nothing
  On Error GoTo 0
End Sub