Verweise auslesen
23.03.2004 12:54:04
Ilja
irgendwie klappt es bei mir nicht, die Verweise auszulesen.
DieReferences-Auflistung scheint leer zu sein.
Hat jemand 'ne Idee, woran das liegen kann ?
Sub Verweise_lesen()
Dim VerweisDatei As String
Dim fs As Object, f As Object
Dim ref As Object
VerweisDatei = ThisWorkbook.Path & "\verweise.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(VerweisDatei, True)
On Error Resume Next
For Each ref In Application.VBE.ActiveVBProject.References
f.WriteLine ref.GUID & " " & ref.Major & " " & ref.Minor
Next
f.Close
Set fs = Nothing
Set f = Nothing
End Sub
Gruß
Ilja