Πώς να Zip αρχείων με τη χρήση VBA

Κατά τον προγραμματισμό στη Microsoft Office Visual Basic for Applications ( VBA ) , μερικές φορές είναι απαραίτητο για να ανοίξετε ή να καλέσετε άλλα προγράμματα μέσα από το Word , το Excel ή Access . Ο ευκολότερος τρόπος για να εκτελέσει το έργο αυτό είναι μέσω της εντολής VBA SHELL . Αυτή η εντολή ξεκινά ένα άλλο Windows ή πρόγραμμα γραμμής εντολών για να εκτελέσετε ανεξάρτητος από το πρόγραμμα του Office . Μόλις το άλλο πρόγραμμα εκτελείται , το πρόγραμμα του Office μπορούν να συνεχίσουν να εκτελούν άλλα καθήκοντα . Χρησιμοποιήστε μια εύκολη τεχνική για να τρέξει το WinZip και αρχειοθετήσετε ένα σύνολο αρχείων χρησιμοποιώντας μια φόρμα της Microsoft Access . Τα πράγματα που θα χρειαστείτε για Microsoft Access 2000 ή νεότερη έκδοση
WinZip
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Access ( 2000 ή αργότερα) και να δημιουργήσετε μια νέα βάση δεδομένων που ονομάζεται ZipSample . 2

Δημιουργήστε ένα νέο μη δεσμευμένη μορφή που ονομάζεται ZipForm . Αυτή η μορφή δεν έχει καμία πίνακα συνδέονται με αυτό. Αντ 'αυτού , η Επιτροπή θα δεχθεί φάκελο και αρχείο zip ονόματα πληκτρολογηθεί από τον χρήστη , στη συνέχεια, zip τα αρχεία όταν το κουμπί πατηθεί.
Εικόνων 3

Προσθέστε δύο πλαίσια κειμένου και ένα κουμπί στη φόρμα .

Ονομάστε το πρώτο πλαίσιο κειμένου " Όνομα φακέλου " και να της δώσει τη λεζάντα " Φάκελος : "

Ονομάστε το δεύτερο πλαίσιο κειμένου " zipfile " και να της δώσει τη λεζάντα " Αρχείο Zip : "

Αλλάξτε την ετικέτα στο κουμπί "Zip . "
Η

4 Κάντε δεξί κλικ στο κουμπί Zip και επιλέξτε BUILD που ακολουθείται από ΚΩΔ . Αυτό θα ανοίξει το Visual Basic παράθυρο με ένα νέο κενό μέθοδο . Μέσα στο σώμα μέθοδο ( για την κενή γραμμή πάνω End Sub ) εισάγετε τον παρακάτω κωδικό :

SHELL " " "c : \\ Program Files \\ WinZip \\ WinZip32 " " - min - a- r" και zipfile & " " & Όνομα_φακέλου & "\\ * * "

Όταν αξιολογείται από το διερμηνέα VBA , ο κώδικας αυτός θα περάσει το ακόλουθο κείμενο στο μεταφραστή εντολών :

" . c: \\ Program Files \\ WinZip \\ WinZip32 " - min - a - r zipfile.zip όνομα_φακέλου \\ * *

WinZip μπορεί να τρέξει με μια σειρά από παραμέτρους της γραμμής εντολών . . Σε αυτή την περίπτωση , η εντολή ζητά WinZip για να προσθέσετε όλα τα αρχεία στο φάκελο FOLDERNAME στο αρχείο zipFile.zip . Η - min επιχείρημα λέει WinZip για να τρέξει ελαχιστοποιηθεί ( στο παρασκήνιο ) , - α σημαίνει ότι είναι για να προσθέσετε αρχεία στο αρχείο και - r υποδεικνύει ότι θα πρέπει επίσης να προστεθούν όλα τα αρχεία σε υποφακέλους μέσα σε αυτόν το φάκελο. Δείτε την ιστοσελίδα WinZip ( βλ. Πόρων ) για τις επιλογές γραμμής εντολών και μια πλήρη λίστα των ορισμάτων της γραμμής εντολών .
5

Αποθηκεύστε και κλείστε το παράθυρο της Visual Basic , αποθηκεύστε τη φόρμα στη συνέχεια να στραφούν για να σχηματίσουν άποψη . Η φόρμα θα εμφανίζεται με τα δύο πλαίσια κειμένου και ένα κουμπί . Συμπληρώστε τη φόρμα και πατήστε το κουμπί Zip για να ελέγξετε τη φόρμα .
Η
εικόνων