Actualizar código vba de varios archivos por medio de un txt en la red.

[AlexanderS]

Voy a tratar de ser lo mas claro posible.

Supongamos que en nuestro trabajo estamos conectados a una red local y hemos realizado un archivo con macros para varios compañeros (el mismo para todos), resulta que encontramos un error en nuestro código y debemos empezar a actualizar cada uno de los archivos a nuestros compañeros, esto tomara algo de tiempo y tal vez a alguno no podamos actualizarlo porque no esta o etc, el departamento va a quedar con diferentes versiones del archivo.

Con el código que les facilito podemos actualizar todos los archivos de nuestros compañeros automáticamente sin necesidad de nosotros intervenir ya que solo debemos crear un archivo txt con el código actualizado o corregido y cada archivo en cada computadora al abrirse encontrara la actualización y procederá a reemplazar el código del archivo automáticamente.

1.Este código lo copiaremos en "ThisWorkbook" y reemplazaremos la ruta "sfile" por la deseada y el nombre del modulo que se debe actualizar. Obviamente esto solo se debe realizar en la primera versión del archivo.

Public codigo As String
Public sfile As String
Public NOM_MODULO As String
Private Sub Workbook_Open(): On Error Resume Next
'Comprobamos si existe una nueva versión del código
Dim oVBMod As Object
Dim ReadData As String
Dim x, y As Double
Call comprueba
sfile = "\\10.10.xxx.xxx\turuta\ejemplo.txt" 'Ruta del archivo de actualización
NOM_MODULO = "Code" 'Nombre del modulo que se actualizara

Open sfile For Input As #1: Line Input #1, ReadData: Close #1
Set oVBMod = ThisWorkbook.VBProject.VBComponents(NOM_MODULO)
x = Val(Right(ReadData, Len(ReadData) - 1))
y = Val(Right(oVBMod.CodeModule.Lines(1, 1), Len(oVBMod.CodeModule.Lines(1, 1)) - 1))
If x > _
y Then _
MsgBox "Nueva versión disponible", vbInformation, "By Riddle": Call GetCode

End Sub

Private Sub GetCode(): On Error Resume Next
'Creamos y copiamos el codigo al modulo
Dim str As Object
Dim NewModule As Object
Call Ext_Txt
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(NOM_MODULO)
Set NewModule = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
With NewModule
.Name = NOM_MODULO
.CodeModule.InsertLines 1, codigo
End With
MsgBox "Actualización aplicada correctamente", vbInformation, "By Riddle"
End Sub

Private Sub Ext_Txt(): On Error Resume Next
'Extraemos el codigo del txt
Dim fso As Object
Dim ts As Object
codigo = Empty
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sfile).OpenAsTextStream(1, -2)
codigo = ts.readall
ts.Close
End Sub

Private Sub comprueba()
'Comprobamos los permisos de seguridad para excel
Dim VBP As Object
If Val(Application.Version) >= 10 Then
On Error Resume Next
Set VBP = ActiveWorkbook.VBProject
If Err.Number <> 0 Then
MsgBox "Parece que la configuración de seguridad no permite que se ejecute el proceso de actualización de Macros." _
& vbCrLf & vbCrLf & "Para cambiar tu configuración de seguridad:" _
& vbCrLf & vbCrLf & " 1. Selecciona Opciones - Centro de confianza - Configuración." & vbCrLf _
& " 2. Selecciona Macros y activa la casilla ''Confiar en el acceso al modelo de objetos de proyectos de vba''" & vbCrLf _
& " 3. Cierra y vuelve a abrir el programa.'", _
vbCritical, "By Riddle"
End
End If
End If
End Sub
[/CODE]

[/spoiler]

[b][color=#b30000]2.[/color][/b]En el ejemplo al colocar un archivo txt en la ruta establecida el contenido de este reemplazara todo el modulo llamado "Code"

[color=#b30000][b]3.[/b][/color]En el Txt de actualización [u][color=#b30000]debemos colocar en la primera linea la versión del código[/color][/u] ejem: '1.01 con un apostrofe delante. Al detectar una versión [u][color=#b30000]superior[/color][/u] del código se ejecutara el proceso de actualización.

[spoiler=IMPORTANTE !!!!!!!!]

Debes tener habilitada la opción: Confiar en el acceso al modelo de objetos de proyectos de VBA desde la configuración de Macros del centro de confianza.

[/spoiler]

Adjunto un pequeño ejemplo, pueden probar cambiando el numero de versión y el codigo de la sub prueba en el txt y después abrir el excel para que se actualice.

Saludos a todos.

Actualizar VBA.rar

[Antoni]

Muy bueno e imaginativo.

[Pityon]

Muy bueno, Riddle! Felicitaciones!

[AlexanderS]

[uSER=46507]@Macro Antonio[/uSER], [uSER=62855]@Pityon[/uSER] gracias por los comentarios.

Salu2

[bigpetroman]

muchas gracias por el aporte [uSER=143023]@Riddle[/uSER], talvez lo ponga en practica aquí en la empresa, se ve interesante la forma de hacerlo, gracias

[Celest3]

Muy bueno [uSER=143023]@Riddle[/uSER], he hecho a mi me ayuda mucho, aun que nose si este código también puede actualizar toda la aplicación por ejemplo, nuevos formularios y bueno los modulo de clase, etc. (solo aplicación y nada de sus datos guardados)

te comento aca tengo una aplicación que funciona en 3 lugares entonces cuando agrego algo nuevo tengo que ir al sitio para actualizar, agregar los frm, modulos etc para no dañar sus datos.

Saludos,

Celest3

[Antoni]

[uSER=83431]@Celest3[/uSER]:

tengo una aplicación que funciona en 3 lugares entonces cuando agrego algo nuevo tengo que ir al sitio para actualizar, agregar los frm, modulos etc para no dañar sus datos

Con independencia de trabajar o no en red, es aconsejable separar el código de los datos en archivos distintos, de esta manera solo hay que sustituir el archivo que contiene el código, por el nuevo cuando hay modificaciones, sin tener que preocuparse de los archivos que contienen los datos.

[AlexanderS]

Hola pues si es posible actualizar varios módulos al mismo tiempo e incluso crear formularios, módulos normales o de clase, solo que el código que aporte esta pensado para actualizar el contenido de un solo modulo, podría pensar alguna forma de adaptar el código para que realizara esas acciones.

[Onardem]

Excelente [uSER=143023]@Riddle[/uSER], tengo una situación parecida con un archivo que usamos en la oficina y con este aporte tuyo, puedo ahorrar mucho tiempo y esfuerzo.

Como siempre, un placer estar por acá.

Saludos.

[cortes]

Muy bueno. Muchas gracias. Lo estoy poniendo en práctica y funciona a la perfección.

Sería interesante realizar lo mismo pero con que el archivo de actualización estuviese en una ruta fuera de la red local. Por ejemplo, Dropbox.

[Cesar Durand]

Gran aporte, como todos

[joseapm6260]

Fenomenal aporte. Con el podemos hacer las actualizaciones sin tener que montar aplicaciones de actualización. Muy bueno. Gracias por el aporte.

[winkey777]

Exelente.. muy buen aporte. Infinitas Gracias..

[Luisin]

Realmente IMPRESIONANTE, FELICITACIONES

Pude actualizar un macro de varios en un modulo,

GRACIAS