AddIn-Titel bei AddIn-Installation?

mein VBA-Level: befriedigend
Hallo Freunde,
gestern habe ich verschiedene Erläuterungen zu AddIns erhalten und bin dadurch in der Frage "Addin-Installation" ein ganzes Stück weiter gekommen.
Doch trotz allem klappt die Installation leider immer noch nicht. Dann habe ich im Archiv recherchiert, und da steht, dass bei der Installation eines AddIns bei der AddIn-Collection dessen "Titel", d.h. doch wohl der Name, angegeben werden muss.
Angenommen, ich habe eine AddIn-Datei von Diskette in das Windows-AddIn-Verzeichnis
kopiert. Dann öffne ich das AddIn wie eine normale Datei und gebe dem AddIn-Projekt im Eigenschaften-Fenster des Editors dieses AddIns den Namen "Ag".
Anschließend kreiere ich eine neue Datei mit Namen "Neue.xls" und versuche das AddIn mit dem folgenden Makro zu installieren, den ich in deren Editor schreibe (Das Verzeichnis "Meine AddIns" ist das Windows-Verzeichnis mit den Addin-Dateien):


Public Sub Installieren()
Dim strDatei As String
strDatei = "C:\Meine AddIns\MeineDatei.xla"
Applications.AddIns.Add strDatei
AddIns("Ag").Installed = True
MsgBox AddIns("Ag").Installed
End Sub

Ich verwende also, wie im Archiv geraten, nach "AddIns()" den Titel und nicht den Dateinamen des
Addins. Dennoch bekomme auch ich, wie der Anfragende im Archiv, einen Überlauf.
Die Anweisung mit der MsgBox, die ich zur Überprüfugn eingebaut habe, liefert "FALSE", d.h. das AddIn ist nach Ausführung dieses Makros nicht installiert.
Was mache ich bloß falsch? Wäre für Unterstützung überaus dankbar!
Werner R.
P.S.: Diesen Thread habe ich von meinem gestrigen verselbständigt, weil es sich hier offenbar
speziell um die wichtige Frage dreht, ob und wie in obigem Makro der Titel und nicht der Dateiname des
AddIns verwendet werden muss.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Tino,
es war folgendermaßen:
Beim ersten Mal hat es funktioniert, doch dann habe ich das AddIn, wie von Renee im gestrigen Thread geraten, um den Ballast zahlreicher Daten-Worksheets, die ich eingebaut hatte, erleichtert. Das Addn
hat den Dateinamen "Alg.xla" und den Projekt-Codenamen "Ag".
Danach habe ich dein Programm noch einmal laufen lassen, dann kam ein Fehler, und zwar der gleiche wie bei obigen Makro: Überlauf. Und das, obwohl das geänderte AddIn nach wie vor - wie ich überprüft
habe - die Eigenschaft "IsAddIn = True " aufwies.
Wenn die xla-Datei schon im Windows-Ordner steht, brauche ich sie ja nicht extra mit "FileCopy" dort hineinzukopieren. Deshalb habe ich dann den zu Anfang dieses Thread angegebenen Makro
probiert, jedoch auch erfolglos.
Rätselhaft... Grüße! Werner R.

Sub Install_AddIn_mit_VBA() Dim Quelle$, Ziel$, sAddinName$ Dim opjAdd As AddIn 'wo die Datei herkommt Quelle$ = "C:\TestAddin.xlam" 'wo soll die Datei hin Ziel$ = "C:\Meine AddIns\TestAddin.xlam" 'Namen Extrahieren********************************************** sAddinName$ = Right$(Ziel, Len(Ziel) - InStrRev(Ziel, "\")) sAddinName$ = Left$(sAddinName$, InStrRev(sAddinName$, ".") - 1) '*************************************************************** On Error Resume Next 'sollte Addin nicht vorhanden sein AddIns(sAddinName$).Installed = False 'Addin deaktivieren Kill Ziel$ ' vorhandenes löschen, sollte diese schon vorhanden sein On Error GoTo 0 FileCopy Quelle$, Ziel$ 'Datei kopieren Application.AddIns.Add Ziel$ 'Addin Regestrieren AddIns(sAddinName).Installed = True 'Addin Installieren End Sub

Beliebteste Forumthreads (12 Monate)

AddIn-Titel bei AddIn-Installation?

39 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

39
Beiträge zum Forumthread

Beiträge zu diesem Forumthread