Bibliothek für VBProject.References
skaddy
Ich wollte die Referenzen auslesen damit ich eine spezielle dann bei einem Add-In mit setzen kann. Leider steigt meine Makro aus in der Zeile
Set oRefs = ActiveWorkbook.VBProject.References
Ich denke ich habe die Bibliothek nicht... kenn mich da aber nicht so aus.
Kann mir da jemand weiterhelfen?
Hier der ganze Code:
Option Explicit
Public Sub ListReferencesInProject()
Dim oRefs As Object ' References
Dim oRef As Object ' Reference
Dim i As Long
Set oRefs = ActiveWorkbook.VBProject.References
Range("A1") = "Bezeichnung"
Range("B1") = "Name"
Range("C1") = "Pfad"
Range("D1") = "GUID"
Range("E1") = "Major"
Range("F1") = "Minor"
Range("G1") = "Standard-Verweis"
Range("A1:G1").Font.Bold = True
i = 1
For Each oRef In oRefs
i = i + 1
Cells(i, 1) = oRef.Description
Cells(i, 2) = oRef.Name
Cells(i, 3) = oRef.FullPath
Cells(i, 4) = oRef.GUID
Cells(i, 5) = oRef.Major
Cells(i, 6) = oRef.minor
Cells(i, 7) = oRef.BuiltIn
Next
Range("A1:G1").EntireColumn.AutoFit
Set oRefs = Nothing
End Sub
skaddy
Anzeige