Addin installiert sich (leider nicht) selbst
19.02.2004 11:52:45
Russi
Ich muss Euch nochmal um Hilfe bitten, weil ich ums verrecken nicht weiterkomme...
Mein Addin soll sich selbstständig bei Aufruf in die Liste der Addins eintragen und sich installieren. Leider hakt das Makro immer wieder, egal, wie ich es umbaue.
Ich habe auch schon in der Recherche und generell über Google nach einer Lösung gesucht, leider erfolglos. Entweder ist mein Vorhaben zu exotisch oder einfach nicht lösbar...(BITTE beweist mir das Gegenteil!!!)
Das ist mein Code bisher:
Private Sub Workbook_Open()
Dim AddInIndex As Integer
For AddInIndex = 1 To AddIns.Count
' Ist dieses Addin schon in der Liste vorhanden?
If AddIns(AddInIndex).Title = ThisWorkbook.Title Then
' Dann prüfe: Ist Addin auch schon installiert? Dann raus hier...
If AddIns(AddInIndex).Installed = True Then Exit Sub
' Sonst prüfe: Ist Addin nicht installiert? Dann installiere es.
If AddIns(AddInIndex).Installed = False Then
AddIns(AddInIndex).Installed = True
Exit Sub
End If
End If
Next AddInIndex
' wurde AddIn in der Schleife nicht gefunden, füge es der Liste hinzu
AddIns.Add (ThisWorkbook.FullName) ' Hier ist der Fehler!!!
AddIns(ThisWorkbook.Title).Installed = True
End Sub
Der Fehler tritt bei AddIns.Add auf (Fehler 1004: Kann Addin nicht in die Bibliothek kopieren). Der Fehler tritt wahrscheinlich auf, weil die AddIn-Datei bereits geöffnet ist.
Hat jemand von Euch einen Tip, wie man das umgehen kann?!?
Viele Grüße
Russi