Neuen Verweis hinzufügen

Funktion

Mit diesen beiden Funktionen ist es möglich einen Verweis zu einem Projekt hinzuzufügen.

Code

Public Sub VerweisHinzufügen(strVerweisPfad As String)


  Application.VBE.ActiveVBProject.References.AddFromFile strVerweisPfad


End Sub


Public Sub VerweisHinzufügenGUID(strGUID As String, lngMaj As Long, lngMin As Long)


  Application.VBE.ActiveVBProject.References.AddFromGuid strGUID, lngMaj, lngMin


End Sub

Beschreibung

Bei der ersten Variante ist der Pfad zum Verweis als Argument zu übergeben. Da dieser nicht auf allen Systemen gleich ist, gibt es die zweite Varianbte. Hier sind der GUID-String, der den Verweis identifiziert samt der Versions-Nr. als Argument zu übergeben.

Verweise

Damit dieser Code funktioniert sind keine zusätzlichen Verweise erforderlich.