Jump to content
Sign in to follow this  
Antoni

Control de versiones de archivos

Recommended Posts

__________________________________________

A la espera de la aparición del "Dios del foro" anunciada en este post:

Pendiente - Actualizacion automatica ordenana por fecha | Ayuda Excel

___________________________________________

Estoy realmente expectante, porqué con lo ateo que soy yo, ver a un dios, y en el foro, supondría un cambio espectacular en mi forma de pensar y un replanteaniento existencial de mi vida.

A la espera de tal acontecimiento os dejo unas "cositas" para ayudaros a controlar vuestros datos, algo muy mundano, pero mientras aparece ese dios, igual os sirve para algo.

Se trata de unas macros que llevan el control de las distintas versiones de un archivo.

En primer lugar, esta pequeña macro debe colocarse en todos aquellos archivo de los que queramos controlar sus versiones, en Thisworkbook añadir:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss ") & ThisWorkbook.Name
End Sub[/CODE]

Cada vez que guardemos el archivo, se generará una copia del archivo con el mismo nombre al que se le añade la fecha y la hora.

Evidentemente al cabo de unos días podemos tener un montón de versiones del mismo archivo.

Para ello he desarrollado la aplicación que está en el adjunto, que nos permite:

  • Escoger el directorio
  • Escoger el número de versiones como mínimo que deben ser respetadas.
  • La fecha hasta de eliminación de archivos.

Primero debe pulsarse el botón de visualización de archivos.

Una vez comprobado que los archivos a eliminar son los correctos, debemos pulsar el botón de eliminación de archivos. Solo se eliminan aquellos archivos cuya línea esté resaltada en rojo.

Salud, paz y amor

Control de copias.xls

Share this post


Link to post
Share on other sites

Hola @[uSER=46507]Macro Antonio[/uSER], si lugar a dudas es de gran utilidad, en lo personal he usado esta opción de guardar un respaldo en otra carpeta por "si algo sucede" (jejeje), con el evento Workbook_BeforeClose.

Saludos.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png