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