Anmerkung
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Stellt ein einzelnes installiertes oder nicht installiertes Add-In dar.
Hinweise
Das AddIn -Objekt ist ein Mitglied der AddIns -Auflistung. Die AddIns -Auflistung enthält eine Liste aller installierten und nicht installierten Add-Ins, die in Microsoft Excel zur Verfügung stehen. Diese Liste entspricht der im Dialogfeld Add-Ins angezeigten Liste.
Beispiel
Verwenden Sie AddIns (Index), wobei index der Add-In-Titel oder die Indexnummer ist, um ein einzelnes AddIn-Objekt zurückzugeben. Im folgenden Beispiel wird das Add-In Analysis Toolpak installiert.
AddIns("analysis toolpak").Installed = True
Verwechseln Sie den Add-In-Titel, der im Dialogfeld Add-Ins angezeigt wird, nicht mit dem Add-In-Namen, der dem Dateinamen des Add-Ins entspricht. Die Schreibweise des Add-In-Titels, nicht jedoch die Groß-/Kleinschreibung, muss mit der Schreibweise im Dialogfeld Add-Ins übereinstimmen.
Die Indexzahl stellt die Position des Add-Ins im Feld Verfügbare Add-Ins im Dialogfeld Add-Ins dar. Mit dem folgenden Beispiel wird eine Liste erstellt, die die angegebenen Eigenschaften der verfügbaren Add-Ins enthält.
With Worksheets("sheet1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Name", "Full Name", "Title", "Installed")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Name
.Cells(i + 1, 2) = AddIns(i).FullName
.Cells(i + 1, 3) = AddIns(i).Title
.Cells(i + 1, 4) = AddIns(i).Installed
Next
.Range("a1").CurrentRegion.Columns.AutoFit
End With
Die Add-Methode fügt der Liste der verfügbaren Add-Ins ein Add-In hinzu, installiert das Add-In jedoch nicht. Legen Sie die Installed -Eigenschaft des Add-Ins auf True fest, um das Add-In zu installieren.
Wenn Sie ein Add-In installieren möchten, das nicht in der Liste verfügbarer Add-Ins angezeigt wird, müssen Sie zuerst die Add -Methode verwenden und anschließend die Installed -Eigenschaft festlegen. Dies ist in einem einzigen Arbeitsschritt möglich, wie im folgenden Beispiel veranschaulicht wird (Sie müssen bei der Add -Methode den Namen des Add-Ins verwenden und nicht den Titel).
AddIns.Add("generic.xll").Installed = True
Verwenden Sie Arbeitsmappen (Index), wobei index der Add-In-Dateiname (nicht titel) ist, um einen Verweis auf die Arbeitsmappe zurückzugeben, die einem geladenen Add-In entspricht. Sie müssen den Dateinamen verwenden, da geladene Add-Ins normalerweise nicht in der Workbooks-Auflistung angezeigt werden. In diesem Beispiel wird die wb-Variable auf die Arbeitsmappe für Myaddin.xla festgelegt.
Set wb = Workbooks("myaddin.xla")
Im folgenden Beispiel wird die Variable wb der Arbeitsmappe für das Add-In analysis toolpak (Analyse-Funktionen) festgelegt.
Set wb = Workbooks(AddIns("analysis toolpak").Name)
Wenn die Installed-EigenschaftTrue zurückgibt, die Aufrufe von Funktionen im Add-In jedoch weiterhin fehlschlagen, wird das Add-In möglicherweise nicht geladen. Dies liegt daran, dass das Addin-Objekt das Vorhandensein und den installierten Zustand des Add-Ins darstellt, aber nicht den tatsächlichen Inhalt der Add-In-Arbeitsmappe darstellt. Um sicherzustellen, dass ein installiertes Add-In geladen wird, sollten Sie die Add-In-Arbeitsmappe öffnen.
Im folgenden Beispiel wird die Arbeitsmappe für das Add-In "Mein Addin" geöffnet, wenn das Add-In noch nicht in der Workbooks-Auflistung vorhanden ist.
On Error Resume Next ' turn off error checking
Set wbMyAddin = Workbooks(AddIns("My Addin").Name)
lastError = Err
On Error Goto 0 ' restore error checking
If lastError <> 0 Then
' the add-in workbook isn't currently open. Manually open it.
Set wbMyAddin = Workbooks.Open(AddIns("My Addin").FullName)
End If
Eigenschaften
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.