CREAR UNA COPIA DE SEGURIDAD CON EXCEL
En este post se muestra como se puede hacer en forma fácil una copia de seguridad de un archivo de Excel, utilizando macros de Excel – VBA; la macro permite que con solo apretar un botón se haga una copia de seguridad en el directorio que se desea.
Aprende a manejar Excel, click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.
Mira la macro en acción, una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira el playlist con vídeos relacionados donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil.
Copia de Seguridad con Macros de Excel haciendo un click solamente
Este ejemplo permite hacer una copia de seguridad o backup del archivo de Excel con el cual se está trabajando, al presionar un botón solamente lo que lo transforma en algo super sencillo de llevar a cabo.
Realizar una copia de seguridad es muy posible que para muchos y me incluyo sea algo tedioso, por lo cual no lo hacemos a menudo y solamene valoramos su utilidad cuando el archivo o fichero de Excel se ha roto y no podemos accesar a los datos.
En este caso la copia de seguridad o backup se resguarda una carpeta del escritorio de Windows, se realizó de esta forma para que cualquier pueda descargar el archivo y hacer una copia de seguridad sin tener que están configurando donde se debe guardar el archivo, la macro detecta automáticamente cual es el path del escritorio de Windows y ahí crea la copia de seguridad.
En este ejemplo el nombre que se le asigna al archivo de resguardo es una concatenación de caracteres que se obtienen de combinar el nombre del archivo, la fecha y la hora.
Explicación del código para resguardar archivos de Excel en forma Facil
El código se agrega en un módulo del Editor de VBA, es bastante sencillo, a continuación se explicarán las partes más importante del código, para entenderlo más fácil, al igual que los cientos de vídeos que hay en el canal, se debe descargar el archivo y seguir la explicación en el vídeo asociado.
Para detectar cual es la dirección del escritorio de Windows se usa el código, el cual nos muestra la dirección hasta la carpeta «Backup»:
Direc = CreateObject(«wscript.shell»).specialfolders(«desktop») & «\BACKUP\»
Se verifica si existe el directorio, en caso que no este la macro crea la carpeta «Backup», el código es el siguiente:
If Dir(Direc, vbDirectory) = «» Then MkDir Direc
Los siguientes códigos sirven par determinar el nombre con el cual vamos a guardar el archivo del backup, se debe extraer del nombre la extensión, para ello determinamos donde está el punto y se extraen los caracteres que están a la izquierda de la cadena, obteniéndose el nombre del archivo sin la extensión.
nom = ActiveWorkbook.Name
lar = InStr(nom, «.»)
nom = Left(nom, lar – 1)
Luego se cargan en las variables nomfecha y nomhora; la fecha y la hora al momento de hacer el backup, asi;
nomfecha = Format(Date, «ddmmyyyy»)
nomhora = Format(Time, «hhmmss»)
Luego se forma el nombre del archivo concatenando las variables explicadas anteriormente, el código es el siguiente:
nomarchi1 = Direc & «BACKUP» & » » & nom & » » & nomfecha & » » & nomhora & «.xlsm»
Por último, con el código siguiente crea la copia de seguridad o backup, al crear el backup, se hace una copia del archivo con el cual se está trabajando, pero luego de terminada la copia, el archivo original sigue activo y se puede seguir trabajando con él.
ThisWorkbook.SaveCopyAs nomarchi1 ‘Crea backup y se sigue trabajando en libro original
Código VBA para generar backup en forma fácil con Excel
Sub Backup()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Direc = CreateObject(«wscript.shell»).specialfolders(«desktop») & «\BACKUP\»
If Dir(Direc, vbDirectory) = «» Then MkDir Direc ‘Verifica si existe la carpeta o directorio, si no existe lo crea
nom = ActiveWorkbook.Name
lar = InStr(nom, «.»)
nom = Left(nom, lar – 1)
nomfecha = Format(Date, «ddmmyyyy»)
nomhora = Format(Time, «hhmmss»)
nomarchi1 = Direc & «BACKUP» & » » & nom & » » & nomfecha & » » & nomhora & «.xlsm»
‘ActiveWorkbook.SaveAs Filename:=nomarchi1, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ThisWorkbook.SaveCopyAs nomarchi1 ‘Crea backup y se sigue trabajando en libro original
MsgBox («El Backup se creo con éxito»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Descarga el Libro Realizar un Backup con Macros de Excel
Descarga desde acá el archivo de este ejemplo que se usa en este post y en el vídeo explicativo, el mismo es totalmente gratuito y libre su uso, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.
Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407