Bei der Programmierung in Microsoft Office Visual Basic für Applikationen ( VBA) , ist es manchmal notwendig, um zu öffnen oder rufen Sie andere Programme aus Word , Excel oder Access. Der einfachste Weg, um diese Aufgabe zu erfüllen , ist durch die VBA SHELL -Befehl. Dieser Befehl startet ein anderes Windows- oder Kommandozeilen-Programm zu laufen unabhängig von der Office-Programm. Wenn das andere Programm läuft, kann das Office-Programm weiterhin für andere Aufgaben . Verwenden Sie eine einfache Technik, um Winzip und Archiv eine Reihe von Dateien mit einem Microsoft Access-Formular auszuführen. Things You
Microsoft Access 2000 oder höher
WinZip
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie Microsoft Access (2000 oder später ) , und erstellen Sie eine neue Datenbank mit dem Namen ZipSample .
2

erstellen Sie ein neues ungebundenes Formular genannt ZipForm . Diese Form hat keine Tabelle zugeordnet. Stattdessen wird es akzeptieren, Ordner und ZIP-Datei Namen vom Benutzer eingegeben dann zip Dateien , wenn die Schaltfläche geklickt wird.
3

Fügen Sie zwei Textfelder und eine Schaltfläche auf dem Formular.

Nennen Sie die erste Textfeld " folderName " und geben Sie ihm den Titel " Folder: "

Bezeichnung der zweite Textfeld " ZipFile " und geben Sie ihm den Titel "Zip -Datei: "
< p > ändern Sie das Etikett auf die Schaltfläche "Zip ".
4

rechten Maustaste auf das Zip -Button und wählen BUILD gefolgt von CODE. Dadurch wird der Visual Basic -Fenster mit einer neuen, leeren Methode öffnen. Innerhalb der Methode Körper ( auf der Leerzeile über End Sub ) den folgenden Code eingeben :

SHELL " " "c: \\ Program Files \\ WinZip \\ winzip32 " "- min - a- r " & ZipFile . & "" & FolderName & "\\ * * "

Wenn von der VBA -Interpreter ausgewertet , wird dieser Code den folgenden Text in der Kommando-Interpreter übergeben :

"c: \\ Program Files \\ WinZip \\ winzip32 " - min - a - r zipfile.zip folderName \\ * *

WinZip kann mit einer Reihe von Kommandozeilen- Parametern ausgeführt werden. . In diesem Fall wird der Befehl fragen WinZip , um alle Dateien im Ordner folderName zum Archiv zipfile.zip hinzuzufügen. Die - min Argument teilt WinZip zu laufen minimiert ( im Hintergrund) , -a gibt an, dass es , um Dateien in das Archiv hinzufügen ist und - r bedeutet, dass alle Dateien in Unterordner innerhalb dieses Ordners auch hinzugefügt werden soll. Siehe die WinZip Website (siehe Ressourcen ) für die Kommandozeilen- Optionen und eine vollständige Liste der Kommandozeilen-Argumente .
5

Speichern und schließen Sie die Visual Basic -Fenster , speichern Sie das Formular wechseln Sie dann zu bilden . Das Formular wird mit den beiden Textfelder und eine Schaltfläche angezeigt. Füllen Sie das Formular aus und klicken Sie auf die Schaltfläche, um das Zip Form testen.