Jump to content
Sign in to follow this  
AlexanderS

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

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

[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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
Sign in to follow this  



  • Si estás experimentando errores al acceder al foro, te recomendamos que modifiques la contraseña desde aquí (haciendo clic en el enlace "¿Olvidaste tu contraseña?").

    Próximamente  habrá mejoras en la web y es necesario cambiar la contraseña para acceder a los nuevos contenidos.

    Disculpa las molestias.

  • Recently Browsing

    No registered users viewing this page.

  • Latest Best Answers

×
×
  • Create New...

Important Information

Privacy Policy