Distribuir un libro con un complemento

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Distribuir un libro con un complemento

Notapor ivanmolina » 29 Jun 2006 06:05

Necesito distribuir un libro con un complemento (Calendar.xla). El libro está en red y cada usuario harí­a una copia del mismo en su ordenador personal, copia que deberí­a llevar el complemento añadido. ¿Cómo puedo hacerlo de manera transparente para el usuario?
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivanmolina
Miembro Frecuente
Miembro Frecuente
 
Registrado: 05 Oct 2004 02:51
Ubicación: Madrid

Notapor opermty » 08 Jul 2006 06:39

Deberias intentar hacer la copiar automatica desde la red al accesar el archivo es decir:

1.- Al abrir el archivo verificar si existe el complemento localmente
2.- Si no existe copiarlo
3.- Ya que existe cargarlo de forma dinamica :)

No se si te funcione de esta forma.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX

Re: Distribuir un libro con un complemento

Notapor ivanmolina » 10 Jul 2006 08:05

Gracias. Eso es precisamente lo que quiero hacer, pero no sé cómo. ¿Puedes pasarme el código VBA para hacer todo eso?
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivanmolina
Miembro Frecuente
Miembro Frecuente
 
Registrado: 05 Oct 2004 02:51
Ubicación: Madrid

Re: Distribuir un libro con un complemento

Notapor opermty » 11 Jul 2006 02:48

Anexo dos codigos para que los adaptes segun tus necesidades.
Con este cargamos y copiamos a disco, lo realize por error debido a posibles mensajes a futuro.

Sub micarga()
On Error GoTo mierror
AddIns("Cargadinamica.xLA").Installed = True
mierror:
Select Case Err.Number
Case 9
AddIns.Add("\\Miservidor\MiCarpetaDeComplemento\Cargadinamica.xLA", True).Installed = True
End Select
End Sub


El siguiente es para sacar el status de los complementos instalados:

Sub cargados()
With Worksheets("hoja1")
.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
End Sub


Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 12 invitados