Objeto AddIn (Excel)
Representa un solo complemento, tanto si está instalado como si no.
El objeto AddIn es un miembro de la colección AddIns. La colección AddIns contiene una lista de todos los complementos disponibles en Microsoft Excel, independientemente de si están instalados. Esta lista se corresponde con la lista de complementos que se muestran en el cuadro de diálogo Complementos.
Utilice AddIns (index), donde index es el título o número de índice del complemento, para devolver un solo objeto AddIn. En el ejemplo siguiente, se instala el complemento Analysis Toolpak.
AddIns("analysis toolpak").Installed = True
No confunda el título del complemento, que aparece en el cuadro de diálogo Complementos, con el nombre del complemento, que es el nombre de archivo del complemento. El título del complemento debe escribirse tal como aparece en el cuadro de diálogo Complementos, aunque no es necesario que coincidan las mayúsculas y minúsculas.
El número de índice representa la posición del complemento en el cuadro Complementos disponibles del cuadro de diálogo Complementos. El siguiente ejemplo crea una lista que contiene las propiedades especificadas de los complementos disponibles.
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
El método Add agrega un complemento a la lista de complementos disponibles, pero no instala el complemento. Configure la propiedad Installed del complemento en True para instalar el complemento.
Para instalar un complemento que no aparece en la lista de complementos disponibles, primero debe utilizar el método Add y, después, establecer la propiedad Installed. Puede realizarlo en un solo paso, como se muestra en el ejemplo siguiente (tenga en cuenta que debe usar el nombre del complemento, no su título, con el método Add).
AddIns.Add("generic.xll").Installed = True
Use Workbooks (index), donde index es el nombre de archivo del complemento (no title) para devolver una referencia al libro correspondiente a un complemento cargado. Debe usar el nombre de archivo porque los complementos cargados no aparecen normalmente en la colección Workbooks. Este ejemplo establece la variable wb del libro de Myaddin.xla.
Set wb = Workbooks("myaddin.xla")
En el ejemplo siguiente se establece la variable wb como el libro del complemento Analysis Toolpak.
Set wb = Workbooks(AddIns("analysis toolpak").Name)
Si la propiedad Installed devuelve True, pero las llamadas a las funciones del complemento siguen generando errores, es posible que el complemento no se cargue realmente. Esto es debido a que el objeto Complemento representa la existencia y el estado de instalación del complemento, pero no representa el contenido en sí del libro de complemento. Para garantizar que un complemento instalado se carga, debe abrir el libro del complemento.
El siguiente ejemplo abre el libro para el complemento denominado "Mi complemento" si el complemento no está presente en la colección Workbooks.
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
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.