** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Activar desde VBA analysis toolpack
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoActivar desde VBA analysis toolpack

 Responder Responder
Autor
Mensaje
LukeSky Ver desplegable
Habitual
Habitual
Avatar

Unido: 08/Junio/2014
Localización: España
Estado: Sin conexión
Puntos: 122
Enlace directo a este mensaje Tema: Activar desde VBA analysis toolpack
    Enviado: 05/Mayo/2016 a las 22:56
Buenas a todos, espero que me podáis echar una mano. El caso es que necesito cargar los complementos de análisis para excel 2003 y querría automatizarlo, o desde VBA o desde la shell de windows.



Gracias.
Arriba
LukeSky Ver desplegable
Habitual
Habitual
Avatar

Unido: 08/Junio/2014
Localización: España
Estado: Sin conexión
Puntos: 122
Enlace directo a este mensaje Enviado: 06/Mayo/2016 a las 00:26
Lo he solucionado con esto:

Sub InstalarHerramientaAnalisis()
On Error GoTo ErrorHandler
    Dim total As Integer
    Dim i As Integer
    Dim lista As String
   
    'Total de plugins
'    total = AddIns().Count
'    lista = ""
   
    'Listamos todos los disponibles
'    For i = 1 To total
'      lista = lista + AddIns(i).FullName + vbCrLf
'    Next i
'
'    Debug.Print lista
   
    If AddIns("Herramientas para análisis").Installed = False Then
       AddIns("Herramientas para análisis").Installed = True
       AddIns("Herramientas para análisis - VBA").Installed = True
    End If
   
ErrorHandler_Exit:
    Exit Sub

ErrorHandler:
     MsgBox Err.Description + Str(Err.Number)
     Resume Next
End Sub


Sin embargo, lo que no me entra en la cabeza es que ese nombre que he usado no me es posible recuperarlo desde ningún metodo del objeto Addin, me devuelve los nombres "ANALYS32.XLL,..."

¿No hay ninguna manera de recuperar esos nombres para no dejarlo todo en manos de un indice string?

Gracias. Si nadie responde, dadlo como solucionado.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11092
Enlace directo a este mensaje Enviado: 06/Mayo/2016 a las 08:49
Sub DisplayAddIns()
    Worksheets("Sheet1").Activate
    rw = 1
    For Each ad In Application.AddIns
        Worksheets("Sheet1").Cells(rw, 1) = ad.Name
        Worksheets("Sheet1").Cells(rw, 2) = ad.Installed
        rw = rw + 1
    Next
End Sub

Entra en la ayuda VBA de excel, busca AddIns y encontrarás muchas información sobre lo que buscas.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
LukeSky Ver desplegable
Habitual
Habitual
Avatar

Unido: 08/Junio/2014
Localización: España
Estado: Sin conexión
Puntos: 122
Enlace directo a este mensaje Enviado: 06/Mayo/2016 a las 11:32
Gracias por recordarme la existencia de la ayuda aunque ya había revisado ese código, y me da el mismo resultado; nombres que si los inserto, como tales, provocan error 9. Que a mi modo de ver, es un falso desbordamiento por no encontrar el indice.


Estos mismos nombres los obtuve fácilmente con el código que posteé, pero como he puesto al parecer a excel 2003 no le gustan y provocan dicho error.

Un saludo.
Arriba
LukeSky Ver desplegable
Habitual
Habitual
Avatar

Unido: 08/Junio/2014
Localización: España
Estado: Sin conexión
Puntos: 122
Enlace directo a este mensaje Enviado: 06/Mayo/2016 a las 11:52
Siento el repost. Pongo la solución, siendo el uso del método Title, para obtener el nombre correcto y así poder usarlo. Parece una trivialidad, pero este método de la clase AddIn, no era mostrado por VBA cuando se realiza una desreferenciación del grupo obtenido de ADDINS, para obtener un objeto AddIn.


Ahora si podéis darlo por concluído. Gracias.


Editado por LukeSky - 06/Mayo/2016 a las 11:53
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11092
Enlace directo a este mensaje Enviado: 06/Mayo/2016 a las 11:58
Gracias a tí por la solución.

Un saludo.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable