Verweise in VBA/Excel
09.06.2006 12:48:37
Johannes
Vielleicht kann mir einer von euch ja weiterhelfen.
Ich schlage mich gerade mit den Verweisen von VBA rum,
bzw. den gebrochenen Verweisen.
Bitte keine Hinweise auf andere Beträge die hab ich mit
Sicherheit schon gelesen.
Ich weiß wie ich ein Projekt nach Verweisen durchsuchen und
auch wie ich sie mir falls sie fehlen rein lade usw. nur eines
funktioniert leider nicht.
Angenommen ich habe auf einem Computer einen Verweis auf Outlook
olb Datei der Version 11.
Wenn ich nun auf anderem Computer mit einer geringeren Outlookversion
z.B. Version 10 sitze, kann man unter Extras Verweise sehen, dass der Verweis
zu Outlook Version 11 gebrochen ist.
Jetzt will ich den gebrochenen raus und den Version 10 Verweis rein, das Problem ist nur ich kann den alten Verweis nicht löschen.
Programm:
For Each objVerweis In Application.VBE.ActiveVBProject.References
intZeile = intZeile + 1
strGUID = objVerweis.GUID
lngMajor = objVerweis.major
lngMinor = objVerweis.minor
If strGUID = "{00062FFF-0000-0000-C000-000000000046}" Then
Application.VBE.ActiveVBProject.References.Remove objVerweis
---> ActiveWorkbook.VBProject.References.Remove objVerweis
Application.VBE.ActiveVBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office10\msoutl.olb"
Else
ThisWorkbook.Sheets("Tabelle1").Range("A" & intZeile).Value = _
"Name: " & objVerweis.Name & vbCrLf & "GUID: " & objVerweis.GUID & vbCrLf & _
"Description: " & objVerweis.Description & vbCrLf & "FullPath: " & objVerweis.FullPath & vbCrLf
End If
Next objVerweis
Exit Sub
Bei dem mit Pfeil gekennzeichneten Punkt kommt dann Fehlermeldung das die DLL nicht gefunden wurde. Ist mir auch klar schließlich ist der Verweis ja gebrochen, aber ich will ihn ja rauslöschen und das macht er einfach nicht.
Hat irgendwer von euch vielleicht noch ideen?
Danke lg JOhannes