Macro para mostrar los complementos (addins) de Excel y sus características

by Sergio Alejandro Campos · 24 June, 2016

Hace un par de días me preguntaron cómo saber dónde se encuentra alojado el archivo de un add-in instalado en Excel. En este artículo y video veremos la manera de hacerlo de manera manual y mediante macros.

Te puede interesar: Instalar EXCELeINFO add-in o cualquier complemento de Excel.

Mostrar características de los complementos de Excel

Los complementos o add-ins de Excel son una herramienta muy valiosa para darle poder a Excel y a nuestras hojas de cálculo. Para mostrar los complementos que tenemos disponibles en Excel, ya sea activados o desactivados no dirigimos a Archivo > Opciones > Complementos > Ir. Se mostrará un formulario donde podemos ver cuáles tenemos disponibles en Excel y además podemos ver cuáles están activos o no, además de poder instalar nuevos.

Figura 1. La casilla activada nos dice que el add-in está instalado y activo.

Pero si lo deseamos es ver más características de los complementos como Nombre de archivo, Ubicación, Descripción, entre otras, nos dirigimos a Archivo > Opciones > Complementos.

Figura 2. En estas secciones vemos el nombre, ubicación y tipo de complemento, además de las características.

Ver video

Hacer lista de complementos con Macros vba

Ahora bien, si por alguna razón requerimos enlistar los complementos que tenemos en Excel mediante macros vba, haremos uso de la colección Addins para recuperar algunas características como:

Nombre (Name).
Título (Title).
Saber si está instalado (Installed).
Ubicación (Path).
Saber si está abierto (IsOpen).
Entre otros.

Figura 3. Lista de complementos disponibles en nuestro Excel.

Código de la macro VBA

'---------------------------------------------------------------------------------------
' Module    : Módulo1
' Author    : MVP, Sergio Alejandro Campos
' Date      : 22/06/2016
' Purpose   : Hace una ista de los add-ins diponibles en Excel.
' Web       : http://www.exceleinfo.com
' Canal     : https://www.youtube.com/user/sergioacamposh
'---------------------------------------------------------------------------------------
'
Option Explicit

Sub ListarAddins()
'Declaramos variables
Dim fila As Integer
Dim a As AddIn
'
ActiveWorkbook.Sheets(1).Range("A8").CurrentRegion.Clear
'
'Ponemos títulos
Range("A8:E8") = Array("Nombre", "Título", "Instalado", "Ruta", "Comentarios")
fila = 9
'
'Recorremos cada add-in
For Each a In Application.AddIns
    '
    On Error Resume Next
    With Sheets(1)
        '
        .Cells(fila, 1) = a.Name
        .Cells(fila, 2) = a.title
        .Cells(fila, 3) = a.Installed
        .Cells(fila, 4) = a.Path
        .Cells(fila, 5) = a.Comments
        '
    End With
    '
    On Error GoTo 0
    '
    fila = fila + 1
    '
Next a
'
ActiveWorkbook.Sheets(1).Range("A8").Select
'
'Damos formato de Tabla
With ActiveSheet
    .ListObjects.Add().Name = "tabla"
    .ListObjects("tabla").TableStyle = "TableStyleMedium7"
    .ListObjects("tabla").Unlist
End With
'
End Sub

Descarga el ejemplo

Descarga el archivo usado en este artículo: Listar addins en Excel con vba.rar

Macro para mostrar los complementos (addins) de Excel y sus características