geöffnete Datei als AddIn installieren
26.02.2007 12:28:54
Stefan
kann mir jemand bei folgendem Problem helfen ?:
Habe xla.-Datei, die, wenn sie geöffnet wird, zuerst prüft, ob sie selbst in Application.AddIns eingetragen ist und wenn nicht, dort initialisiert wird.
Private Sub Workbook_Open()
Dim ad As AddIn
' Test, ob als AddIn installiert
For Each ad In AddIns
If ad.Name = ProgName Then GoTo IsInstalled
Next
' installieren
Set ad = Nothing
Set ad = AddIns.Add(ThisWorkbook.FullName, True) ' <-- Fehler 1004
If Not ad Is Nothing Then
ad.Installed = True ' Workbook_Open wird vom AddIn erneut ausgeführt
Else
MsgBox "Fehlermeldung"
End If
IsInstalled:
End Sub
In der markierten Zeile kommt die Fehlermeldung 1004, dass die Add-Eigenschaft nicht zugeordnet werden kann. Öfnne ich das AddIn-Fenster im Excel-Menü und schließe es wieder, kommt kein Fehler.
Hat der Fehler damit zu tun, dass die Mappe ja bereits geöffnet ist ? Wie krieg ich das hin ?
Gruß und Danke, Stefan