Como EJECUTAR SCRIPT y Hacer BACKUP de Archivos en Excel VBA #604

MACRO PARA EJECUTAR SCRIPT Y HACER COPIA DE SEGURIDAD

En este ejemplo se muestra una macro que ejecuta un archivo bat, batch o por lotes y que genera un backup de varios archivos, el archivo de excel contiene una macro que ejecuta el archivo bat y este archivo bat es el que contiene el código para realizar el backup de los archivos de un directorio.

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.

  

Para poder probar el funcionamiento de la macro contenida en este ejemplo, se debe descargar el archivo, lo cual se realiza desde el final de este post, una vez descargado el archivo comprimido, descomprimir y poner los dos archivos juntos en la misma carpeta, el archivo de Excel que contiene la macro y el archivo BAT que contiene el script para realizar la copia de seguridad de los archivos contenidos en la carpeta que queramos.

En este ejemplo el backup se hará en una carpeta denominada BACKUP que estará en el escritorio de Windows, para ello la macro crea dicha carpeta, si es que no la contiene para ellos se usan los siguientes códigos:

ruta = CreateObject(«wscript.shell»).specialfolders(«desktop») & «\BACKUP\»
If Dir(Direc, vbDirectory) = «» Then MkDir Direc

Luego se establece la dirección del archivo bat que contiene el script para hacer el backup, en este caso obtenemos el path del archivo actual ya que será el mismo path del archivo con el script ya que se han descomprimido y puesto en la misma carpeta, en caso que no estén juntos, se debe establecer la ruta correcta hasta el archivo con el script y cargarlo en la variable «myscript»; en este caso al estar juntos se usan los siguientes códigos:

dire = ActiveWorkbook.Path
myscript = dire & «\604 Como Ejecutar Script y Hacer Backup Solo de Archivos en Excel VBA.bat»

El código de la macro de Excel VBA que ejecuta el archivo bat o bacth es el siguiente:

Shell myscript, vbHide

Bien hasta acá es el código de la macro en VBA, ahora ya una vez ejecutado el archivo BAT, comienza a actuar el código o script que esta en dicho archivo que es el que genera el backup o copia de resguardo, es código es muy simple y es el siguiente:

xcopy /f/c/k/y «C:\Users\MyNotebook\Documents\AAMIS MACROS\Publicadas\592 Crea Backup con Excel» «C:\Users\MyNotebook\Desktop\BACKUP\»

Si se fijan la sintaxis es comando, parámetros y «dirección de origen» «dirección de destino»

Los parámetros son los que siguen al comando «xcopy» y entre otros los que se pueden usar son los siguientes:

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.
rem xcopy/? comando para mas ayuda

Código PARA EJECUTA UN ARCHIVO BAT CON UNA MACRO Y REALIZAR BACKUP DE ARCHIVOS

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 & «\604 Como Ejecutar Script y Hacer Backup Solo de Archivos 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 se agrega en un archivo bat

@echo off
xcopy /f/c/k/y «C:\Users\MyNotebook\Documents\AAMIS MACROS\Publicadas\592 Crea Backup con Excel» «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.
rem xcopy/? comando para mas ayuda

DESCARGA EL CÓDIGO PARA EJECUTAR ARCHIVOS BAT Y HACER COPIAS DE SEGURIDAD 

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.

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