VBA: Verschiedene Libraries mit dem gleichen Namen referenzieren

[Michael K. (ampfing)]

Hi,

ich hätte gerne folgendes:
Ich habe eine XLAM-Bibliothek namens "lib1.xlam" auf einem Netzlaufwerk 
liegen. Um die Bibliothek entwickeln zu können hätte ich gerne auf 
meiner lokalen Platte eine Kopie mit gleichem Namen.

Nun habe ich zwei Excel-Dateien (file1.xlsm und file2.xlsm) die die 
jeweiligen Bibliotheken referenzieren sollen (file1 -> Netzlaufkwerk, 
file2 -> lokale Platte).
Scheinbar überfordere ich Excel 2010 damit.

Hier erstmal der Code den ich in den beiden xlsm-Dateien habe:

Private Sub Workbook_Open()
    Dim n As Integer
    
    n = FreeFile()
    Open "C:\tmp\debug.txt" For Output As #n

    '~~> Check if "lib1" is already added and if so remove it
    Dim index As Long
    For i = ActiveWorkbook.VBProject.References.Count To 1 Step -1
        Set theRef = ActiveWorkbook.VBProject.References(i)
        Print #n, "i = " & i & ", Lib = " & theRef.Name
        If theRef.Name = "lib1" Then
            index = i
        End If
    Next i
    Print #n, "index = " & index
    If index <> 0 Then
        Call ActiveWorkbook.VBProject.References.Remove(ActiveWorkbook.VBProject.References(index))
        Print #n, "Removed lib"
    End If
    For i = ActiveWorkbook.VBProject.References.Count To 1 Step -1
        Set theRef = ActiveWorkbook.VBProject.References(i)
        Print #n, "i = " & i & ", Lib = " & theRef.Name
    Next i

    Print #n, "Adding lib"
    'Call ActiveWorkbook.VBProject.References.AddFromFile("C:\tmp\lib1.xlam")
    Call vbProj.References.AddFromFile("\\NETWORK_PATH\lib1.xlam")
End Sub

Die letzte Zeile würde ich entsprechend ein- bzw. auskommentieren, je 
nachdem welche Excel-Datei ich öffne.
Die ganzen Print-Befehle sind natürlich nur zum Debuggen und die 
Ausgaben schauen auch richtig aus. Am Anfang findet er die Bibliothek, 
dann nicht mehr (nachdem sie entfernt wurde).

Leider referenziert Excel jedoch immer die Bibliothek die ich zuletzt 
geöffnet hatte, unabhängig davon was in dem Code ein- oder 
auskommentiert ist!
Der einzige Weg die "richtige" Bibliothek zu referenzieren den ich 
bisher gefunden habe wäre die xlam-Datei vor der xlsm-Datei zu öffnen. 
Das ist aber mehr als unschön und mir wäre eine programmatische Lösung 
sehr viel lieber.

Gibt es einen Weg Excel dazu zu bringen die entsprechende Bibliothek zu 
öffnen?

Danke vorab für alle Antworten

[Michael K. (ampfing)]

Servus nochmal,

hab es mittlerweile gelöst.
Es ist notwendig die Bibliothek zu schließen, sonst nimmt Excel einfach 
die noch offene Datei als Referenz - trotz des anderen Pfades im Code.
Folgendes funktioniert also:

Private Sub Workbook_Open()
    '~~> Check if "lib1" is already added and if so remove it
    Dim index As Long
    For i = ThisWorkbook.VBProject.References.Count To 1 Step -1
        Set theRef = ThisWorkbook.VBProject.References(i)
        If theRef.Name = "lib1" Then
            index = i
        End If
    Next i
    If index <> 0 Then
        Call ThisWorkbook.VBProject.References.Remove(ThisWorkbook.VBProject.References(index))
    End If
    
    'Call ThisWorkbook.VBProject.References.AddFromFile("C:\tmp\lib1.xlam")
    Call ThisWorkbook.VBProject.References.AddFromFile("\\NETWORK_PATH\lib1.xlam")
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim index As Long
    For i = ThisWorkbook.VBProject.References.Count To 1 Step -1
        Set theRef = ThisWorkbook.VBProject.References(i)
        If theRef.Name = "lib1" Then
            index = i
        End If
    Next i
    If index <> 0 Then
        Call ThisWorkbook.VBProject.References.Remove(ThisWorkbook.VBProject.References(index))
    End If
    lib1.ThisWorkbook.Close
End Sub

Nur für den Fall, dass jemand diesen Thread irgendwann mal ausgräbt und 
die Lösung haben möchte :-)

Viele Grüße

[Mark B. (markbrandis)]

Michael K. schrieb:
> Nur für den Fall, dass jemand diesen Thread irgendwann mal ausgräbt und
> die Lösung haben möchte :-)

Vorbildlich! :-)