Application.AddIns.Add erzeugt Laufzeitfehler 1004
16.11.2005 14:49:37
Jogi
Das ladende Addin liegt im Verzeichnis ...\office11\XLStart und wird so bei jedem Start geladen. Bislang sieht der Code folgendermaßen aus:
Private Sub Workbook_Open()
Dim StartUpFolder As String
Dim AktAddinName As String
Dim AktAddin As AddIn
' Laden der erforderlichen Addins vom Programmserver
StartUpFolder = "w:\winnt\ms_office\excel\startup\"
AktAddinName = Dir(StartUpFolder & "*.xla")
Do While AktAddinName <> ""
Set AktAddin = Application.AddIns.Add(WGZStartUpFolder & AktAddinName, False)
AktAddin.Installed = True
AktAddinName = Dir
Loop
End Sub
Das funktioniert auch soweit wie gewünscht, wenn zuerst Excel gestartet und erst anschließend eine Datei geöffnet wird. Beim Öffnen einer vorhandenen Excel-Datei per Doppelklick im Explorer alledings erscheint die Fehlermeldung "Laufzeitfehler '1004': Die Add-Methode des AddIns-Objektes konnte nicht ausgeführt werden". Öffnet man den Debugger, wird die Zeile "Set AktAddin = Application.AddIns.Add(WGZStartUpFolder & AktAddinName, False)" als die fehlerauslösende ersichtlich.
Hat jemand eine Idee, woran es liegen und wie eine Lösung aussehen könnte?
Das ganze findet übrigens in Excel 2003 unter Windows XP SP2 statt.
Herzlichen Dank im voraus!