Come Zip file utilizzando VBA

Quando si programma in Microsoft Office Visual Basic, Applications Edition (VBA ) , a volte è necessario aprire o chiamare altri programmi da Word , Excel o Access . Il modo più semplice per eseguire questa operazione è attraverso il comando VBA SHELL . Questo comando avvia un altro programma a linea di Windows o di comando per eseguire indipendente del programma di Office . Una volta che l'altro programma è in esecuzione , il programma di Office in grado di continuare a svolgere altri compiti. Utilizzare una tecnica facile da eseguire Winzip e archiviare un insieme di file utilizzando una maschera di Microsoft Access. Cose che ti serviranno
Microsoft Access 2000 o versione successiva
WinZip
Mostra più istruzioni
1

Aprire Microsoft Access ( 2000 o versioni successive ) e creare un nuovo database chiamato ZipSample .
2

Creare una nuova maschera non associata denominata ZipForm . Questo modulo non ha nessuna tabella associata. Al contrario , la volontà di accettare nomi di cartelle e file zip digitati dall'utente quindi comprimere i file quando si fa clic sul pulsante .
3

Aggiungere due caselle di testo e un pulsante sul form. < Br

Nome > la prima casella di testo " nomeCartella " e dargli la voce " cartella : "

Nome seconda casella di testo " ZipFile " e dargli la voce " File Zip : "

Cambiare l'etichetta del pulsante di "Zip ".
4

Fare clic destro sul pulsante Zip e scegliere Genera seguito da CODE . Si aprirà la finestra di Visual Basic con un nuovo metodo vuoto . All'interno del corpo del metodo ( sulla riga vuota sopra End Sub ), inserire il seguente codice :

SHELL " " "C: \\ Programmi \\ WinZip \\ WinZip32 " " - min - a- r " & ZipFile . & "" & FolderName & " \\ * * "

Quando valutata l'interprete VBA , il codice passerà il seguente testo per l'interprete dei comandi :

"c: \\ Program Files \\ WinZip \\ WinZip32 " - min - a - r zipfile.zip nomeCartella \\ * *

WinZip può essere eseguito con un numero di parametri della riga di comando . . In questo caso, il comando chiede WinZip per aggiungere tutti i file nella cartella nomeCartella al zipFile.zip archivio. L'argomento - min dice a WinZip per eseguire minimizzata ( in background ) , - a indica che si tratta di aggiungere file all'archivio e - r indica che tutti i file in sottocartelle della cartella dovrebbero essere aggiunti . Consultare il sito Web di WinZip ( vedi Risorse ) per le opzioni da riga di comando e una lista completa di argomenti della riga di comando .
5

Salvare e chiudere la finestra di Visual Basic , salvare il modulo poi passare alla visualizzazione maschera . Il modulo viene visualizzato con due caselle di testo e un pulsante . Compila il modulo e fare clic sul pulsante Zip per testare la forma .