MACRO PARA EJECUTAR ARCHIVO POR LOTE Y HACER COPIA RESGUARDO DE UN FICHERO
En esta ocasi贸n se presenta una macro de Excel – VBA para ejecutar un script de DOS Windows que permite hacer un backup de un archivo, es decir la macro de Excel solo ejecuta el archivo BAT y este archivo procede a realizar la copia de seguridad de un fichero determinado.
Maneja Excel como los mejores deber铆as hacer 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 de EXCEL ON LINE❤️ que he visto en internet, te lo recomiendo no te arrepentir谩s.
聽
聽
聽
MACRO DE EXCEL PARA EJECUTAR ARCHIVO BAT Y REALIZAR BACKUP DE UN ARCHIVO
Para poner a prueba el ejemplo se debe descargar desde el final de este post el ejemplo que consta en un archivo comprimido que contiene el libro de Excel con la macro y el archivo .BAT, que no es otra cosa que un TXT o archivo plano con un c贸digo sencillo que luego se explica para crear la copia de seguridad de un archivo determinando.
Se debe presionar el bot贸n que est谩 en el libro de Excel con la macro, luego la macro de Excel proceder谩 a abrir o ejecutar el archivo por lotes o BAT, cuyo c贸digo contendido en dicho archivo BAT permite hacer una copia de seguridad de un archivo o fichero, en otras palabras la macro solo ejecutar谩 el archivo bat y la programaci贸n de este fichero por lotes har谩 el BACKUP de archivo definido.
Con este c贸digo la macro crear谩 una carpeta en el escritorio de Windows, donde se guardar谩 la copia de seguridad, primero determina la ruta del escritorio de Windows, as铆:
ruta = CreateObject(“wscript.shell”).specialfolders(“desktop”) & “\BACKUP\”
Verifica si el directorio BACKUP existe no hace nada, sino existe crea dicho directorio.
If Dir(Direc, vbDirectory) = “” Then MkDir Direc ‘Verifica si existe la carpeta o directorio, si no existe lo crea
Carga en la variable myscript , cual la direcci贸n del archivo bat que se debe ejecutar, se usa el c贸digo:
dire = ActiveWorkbook.Path
myscript = dire & “\606 Como Ejecutar Script y Hacer Backup de Un Archivo en Excel VBA.bat”
Luego ejecuta el script con este c贸digo:
Shell myscript, vbHide
El script contenido en el archivo por lotes o bat, contiene el siguiente c贸digo:
robocopy “C:\Users\MyNotebook\Documents\AAMIS MACROS\Publicadas” “C:\Users\MyNotebook\Desktop\BACKUP” “1000 DBTSPuntoVenta.accdb”
El c贸digo anterior聽 es el utilizado para hacer backup de archivos, contiene la sintaxis muy simple:
robocopy “archivo de origen a realizar backup” “archivo de destino o backup”
Para mayores detalles recomiendo ver el v铆deo asociado que contiene mayores detalles y podr谩s ver la macro en acci贸n.
C贸digo Para REALIZAR COPIA DE SEGURIDAD con ARCHIVO BAT, BATCH O POR LOTES EJECUTADO CON UNA MACRO DE EXCEL
C贸digo que va en un modulo VBA Excel
Sub EjecutaScript()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
ruta = 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
dire = ActiveWorkbook.Path
myscript = dire & “\606 Como Ejecutar Script y Hacer Backup de Un Archivo en Excel VBA.bat”
Shell myscript, vbHide ‘tambi茅n se puede poner 0 en vez de vbDide, para ocultar la ventana
MsgBox (“La copia de seguridad se ejecut贸 con 茅xito”), vbInformation, “AVISO”
Application.ScreenUpdating = True
Application.DisplayAlerts = tuee
End Sub
聽
C贸digo que va en el archivo BAT, BATCH o POR LOTES
@echo off
robocopy “C:\Users\MyNotebook\Documents\AAMIS MACROS\Publicadas” “C:\Users\MyNotebook\Desktop\BACKUP” “1000 DBTSPuntoVenta.accdb”
rem tambien se puede copiar asi: copy “C:\Users\MyNotebook\Documents\AAMIS MACROS\Publicadas\1000 DBTSPuntoVenta.accdb” “C:\Users\MyNotebook\Desktop\BACKUP\”
rem /H Copia archivos ocultos y tambi茅n archivos del sistema.
rem /I Si el destino no existe y hay que copiar m谩s de un archivo, se asume que el destino debe ser un directorio.
rem /C Continua copiando incluso si ocurren errores.
rem /K Copia atributos. Xcopy normal, restablecer谩 atributos de s贸lo lectura.
rem /S Copia directorios y subdirectorios ,exceptuando los vac铆os.
rem /E Copia directorios y subdirectorios, incluyendo los vac铆os.
rem /R Sobrescribe archivos de s贸lo-lectura.
rem /Y Suprime la pregunta de confirmaci贸n para suprimir un archivo de destino existente.
rem /F Muestra todo el origen y el destino de los nombres de archivo mientras se copian.
聽
LINK PARA DESCARGA MACRO REALIZAR BACKUP CON FICHERO BAT EJECUTADO DESDE MACRO DE EXCEL – VBA
Descarga el fichero usado como ejemplo en este post y en el v铆deo explicativo, el mismo es totalmente gratuito y su uso es libre, 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
👉⏩ Cuenta Skrill: marcrodos@yahoo.es
👉⏩ Cuenta Neteller: marcrodos@yahoo.es
👉⏩ Apoya mi trabajo https://www.patreon.com/programarexcel
👉⏩ S铆gueme en DTube: https://d.tube/#!/c/programarexcel01
👉⏩ S铆gueme en Odysee: https://odysee.com/@programarexcel:3