Tecnología

Inicio

Cómo comprimir archivos que utiliza VBA

Cómo comprimir archivos que utiliza VBA


Al programar en Microsoft Office Visual Basic para Aplicaciones (VBA), a veces es necesario para abrir o llamar a otros programas dentro de Word, Excel o Access. La forma más fácil de realizar esta tarea es a través del comando de VBA SHELL. Este comando inicia otro programa de Windows o la línea de comandos para ejecutar independiente del programa de Office. Una vez que el otro programa se está ejecutando, el programa de Office puede seguir realizando otras tareas. Utilice una técnica fácil de ejecutar Winzip y archivar un conjunto de archivos a través de un formulario de Microsoft Access.

Instrucciones

1 Microsoft Open Access (2000 o posterior) y crear una nueva base de datos llamada ZipSample.

2 Crear un nuevo formulario independiente llamada ZipForm. Esta forma tiene ninguna tabla asociada a ella. En cambio, aceptará nombres de carpetas y archivos zip tecleados por el usuario a continuación, los archivos zip cuando se hace clic en el botón.

3 Agregue dos cuadros de texto y un botón en el formulario.

Nombrar el primer cuadro de texto "Nombre de carpeta" y darle el título "Carpeta:"

Nombre el segundo cuadro de texto "ZipFile" y darle el título "archivo zip"

Cambiar la etiqueta del botón de "Zip".

4 Haga clic derecho sobre el botón Zip y elija Generar seguido del código. Esto abrirá la ventana de Visual Basic con un nuevo método vacío. En el interior del cuerpo del método (en la línea en blanco por encima End Sub) Introduce el siguiente código:

SHELL "" "c: \ Archivos de programa \ WinZip \ winzip32" "--min --un -r" y ZipFile y "" y NombreCarpeta & "* *".

Cuando se evaluó por el intérprete de VBA, este código pasará el siguiente texto para el intérprete de comandos:

"C: \ Archivos de programa \ WinZip \ winzip32" --min --un -R zipfile.zip folderName * *.

WinZip puede funcionar con un número de parámetros de línea de comandos. En este caso, el comando está pidiendo WinZip para añadir todos los archivos de la carpeta Nombre de carpeta al archivo zipFile.zip. El argumento dice --min WinZip para Ejecutar minimizado (en el fondo), -a indica que se trata de añadir archivos al archivo comprimido y -R indica que todos los archivos de las subcarpetas dentro de esta carpeta también se deben añadir. Véase el sitio web de WinZip (ver Recursos) para las opciones de línea de comandos y una lista completa de los argumentos de línea de comandos.

5 Guarde y cierre la ventana de Visual Basic, guardar el formulario a continuación, cambie a la vista formulario. El formulario aparecerá con los dos cuadros de texto y un botón. Rellene el formulario y haga clic en el botón Zip para probar el formulario.

Consejos y advertencias

  • En la línea de comando WinZip, se requiere que esas declaraciones desde la carpeta "Archivos de programa" contiene un espacio. La adición de dos citas juntos dentro de una VBA pone literales una cita en la cadena de texto.