distribuir una macro a varios PCs de una red con una macro

20/07/2006 - 00:57 por MarianoB | Informe spam

Hola grupo,
No sé si alguien se ha planteado antes este tema pero creo que pude
ser muy útil a muchos usuarios.
Si creamos una macro y dicha macro queremos que la puedan usar varios
PCs podemos copiar el código y transportarlo manualmente a varios PCs
pero que pasa si el número de PCs es elevado...
Como podría, con una macro, copiarse el código a todos esos equipos
[suponiendo que tenemos acceso a todos ellos]
¿copiando el código en el fichero PERSONAL.XLT de cada uno [si es
así, ¿como se haría?]?
Dependiendo de lo que hiciese el código ¿sería mejor guardarlo como
función o como una macro a ejecutar manualmente?
Se me acaban de venir muchas dudas a la cabeza sobre este tema y de
momento no sé como solucionarlas pero solo en pensar el tiempo que
puedo ahorrarme :-)))))))))))))))))))))))))))))

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Distribuir una macro

Leer las respuestas

#6 MarianoB

20/07/2006 - 09:41 | Informe spam

Muchas gracias Francisco :)
Lo probaré lo antes posible.

SALU2.

Francisco Parrilla wrote:

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida