Guten Tag zusammen,
ein von mir geschriebenes Excel-Tool liegt auf dem Server und muss auf meinem Rechner
unter Office 2007 laufen, aber auch bei einer Kollegin unter Office 2010.
Da aus Excel heraus auch Word angesprochen wird, gibt es einen Verweis auf die
Microsoft Word 12.0 Object Library. Wenn meine Kollegin das Tool nutzt, wird stattdessen
automatisch ein Verweis auf die Microsoft Word 14.0 Object Library gesetzt. So weit schön,
dehalb funktioniert bei ihr ja auch alles. Wenn ich das Tool danach benutzen will, geht's nicht,
weil auf meinem Rechner natürlich die 14er Version nicht gefunden wird.
Nun wollte ich als Ereignisprozedur beim Öffnen den richtigen Verweis setzen. Hier ein Ausschnitt
aus dem Code:
sLink1 = "C:\Programe\Microsoft Office\Office12\MSWORD.OLB"
sLink2 = "C:\Programme\Common Files\Microsoft Shared\Office14\MSO.DLL"
Select Case pc
Case "PKS-NB01"
On Error Resume Next
ThisWorkbook.VBProject.References.Remove _
ThisWorkbook.VBProject.References(sLink2)
ThisWorkbook.VBProject.References.AddFromFile sLink1
Case "JZH-NB01"
On Error Resume Next
ThisWorkbook.VBProject.References.Remove _
ThisWorkbook.VBProject.References(sLink1)
ThisWorkbook.VBProject.References.AddFromFile sLink2
End Select
Leider funktioniert das nicht. Es gibt keine Fehlermeldung, aber das Ändern der Verweise hat auch
nicht stattgefunden.
Vielen Dank für jeden guten Rat.
Peter