title image


Smiley Re: Verweise über VBA prüfen und einbinden
Das setzen funktioniert grds. so:





Public Function VerweisSetzen(refFile As String) As Boolean



' *********************************************************

' Verweis auf die übergebene Bibliothek setzen;

' gibt "'True' zurück, wenn der Verweis erfolgreich gesetzt

' wurde oder bereits gesetzt war (Error-Nr. 32813)

' *********************************************************



On Error GoTo VerweisSetzenErr



VerweisSetzen = False

Application.References.AddFromFile (refFile)

VerweisSetzen = True



VerweisSetzenExit:

Exit Function



VerweisSetzenErr:

If Err.Number = 32813 Then

VerweisSetzen = True

Else

VerweisSetzen = False

End If

Resume VerweisSetzenExit



End Function





Aufruf dann so:





Sub Aufruf_VerweisSetzen()



MsgBox VerweisSetzen("C:\Programme\Gemeinsame Dateien\Microsoft Shared\Triedit\dhtmled.ocx")



End Sub





Wegen der Festlegung der Priorität muss ich leider passen...



Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: