Cómo Zip archivos mediante VBA

Al programar en Microsoft Office Visual Basic para Aplicaciones ( VBA) , a veces es necesario para abrir o llamar a otros programas desde 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 está en ejecución, 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. Cosas que necesitará
Microsoft Access 2000 o posterior
WinZip
Ver Más instrucciones
1

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

Crear un nuevo formulario independiente llamado ZipForm . Esta forma no tiene ninguna tabla asociada con ella . En cambio, está dispuesta a aceptar nombres de carpetas y archivos zip introducidos por el usuario y luego comprimir los archivos cuando se hace clic en el botón.
3

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

Nombre del cuadro de texto primero " Nombre de carpeta " y darle el título de " la carpeta: "

Nombre del cuadro de texto segundos " ZipFile " y darle el título "Archivo Zip : "
< p > Cambie la etiqueta del botón de "Zip ".
4

Haga clic derecho en el botón Zip y elija Generar seguido de CODE. 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 ) introduzca el código siguiente :

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

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

"c: \\ Archivos de programa \\ WinZip \\ winzip32 " - min - a - r zipfile.zip carpeta \\ Nombre * * por

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 a la zipFile.zip archivo . El argumento - min dice 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 . Visite el sitio web 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, guarde 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.