Crear copia de seguridad de tus archivos de Excel usando VBA y macros

En este tutorial te muestro una macro que nos ayudará a crear copias de seguridad de nuestros archivos de Excel. Cada que ejecutemos una macro se creará una carpeta que tendrá como nombre la fecha y hora de creación, así tendremos una copia cada vez que deseemos tener una versión de nuestros archivos.

La macro de este tutorial se basa en el trabajo de Andrés Rojas Moncada del canal Excel Hecho Fácil.

Ver video Copias de seguridad de archivos de Excel.

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Cómo tener respaldos de nuestros archivos.

La macro que te muestro creará una carpeta destinada al archivo que contenga la macro, posteriormente se crearán tantas carpetas como veces que se ejecuta la macro. Las copias del archivo se guardarán en carpetas que tienen como nombre la fecha y hora en formato “dd-mm-yyyy-hh-mm-ss”.

Código VBA de la macro

Option Explicit

Sub GuardarArchivoRespaldo()
Dim NombreArchivo, Separador, RutaArchivo
Dim bakCarpeta1, bakCarpeta2, Ruta1, Ruta2

NombreArchivo = Application.ThisWorkbook.Name
Separador = Application.PathSeparator
RutaArchivo = Application.ThisWorkbook.Path

bakCarpeta1 = "bak_" & NombreArchivo
bakCarpeta2 = VBA.Format(VBA.Now, "dd-mm-yyyy-hh-mm-ss")

Ruta1 = RutaArchivo & Separador & bakCarpeta1
Ruta2 = RutaArchivo & Separador & bakCarpeta1 & Separador & bakCarpeta2

If Dir(Ruta1, vbDirectory) <> Empty Then
    'Carpeta existe
    VBA.MkDir (Ruta2)
Else
    'Carpeta no existe
    VBA.MkDir (Ruta1)
    VBA.MkDir (Ruta2)
End If

Application.ThisWorkbook.SaveCopyAs Ruta2 & Separador & NombreArchivo

End Sub

Descarga el archivo de ejemplo

Crear copia de seguridad de archivo – EXCELeINFO.zip

Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

También te podría gustar...