Ved programmering i Microsoft Office Visual Basic for Applications ( VBA ), er det nogle gange nødvendigt at åbne eller kalde andre programmer fra Word , Excel eller Access. Den nemmeste måde at udføre denne opgave er gennem VBA SHELL kommando. Denne kommando åbner en anden Windows eller kommandolinje program til at køre uafhængigt af Office-programmet . Når det andet program kører, kan Office-programmet fortsætte med at udføre andre opgaver. Brug en nem teknik til at køre Winzip og arkivere et sæt filer ved hjælp af en Microsoft Access-formular . Ting du skal
Microsoft Access 2000 eller nyere
WinZip
Vis Flere Instruktioner
1
Open Microsoft Access (2000 eller senere) og oprette en ny kaldet database ZipSample .
2
Opret en ny ubundet form kaldet ZipForm . Denne form har ingen tabel forbundet med det . I stedet vil den acceptere mappe og zip filnavne indtastet af brugeren derefter zip filer, når der klikkes på knappen .
3
Tilføj to tekstbokse og en knap på formularen. < Br >
Name den første tekstboks " mappenavn " og give det overskriften "Folder : "
Name det andet tekstfelt " zipfile " og give det billedteksten " Zip-fil : "
Skift etiketten på knappen " Zip ".
4
Højreklik på Zip -knappen og vælg BYG efterfulgt af CODE . Dette vil åbne Visual Basic vindue med et nyt tomt metode. Inde metoden kroppen ( den tomme linje over End Sub) indtaste følgende kode : Hej
SHELL "" " c: \\ Programmer \\ WinZip \\ WinZip32 " "- min - a- r" & zipfile . & " " & MappeNavn & " \\ * * "
Når evalueret af VBA fortolkeren vil denne kode passere følgende tekst til kommandoen tolk :
"c: \\ Program Files \\ WinZip \\ WinZip32 " - min - a - r zipfile.zip mappenavn \\ * *
WinZip kan køre med en række kommandolinjeparametre . . I dette tilfælde er kommandoen beder WinZip til at tilføje alle filerne i mappen mappenavn til arkivet zipFile.zip . The - min argument fortæller WinZip til at køre minimeret ( i baggrunden) , - en angiver, at det er at tilføje filer til arkivet og - r angiver, at alle filer i undermapper i denne mappe også bør tilføjes. Se WinZip hjemmeside (se Resources) for kommandolinjetilvalg og en komplet liste over kommandolinjeargumenter .
5.
Gem og luk Visual Basic vindue , gemme formularen derefter skifte til formularvisning. Formularen vises med de to tekstbokse og en knap . Udfyld formularen og klik på Zip -knappen for at teste formularen .