Når du programmerer i Microsoft Office Visual Basic for Applications ( VBA ) , er det noen ganger nødvendig å åpne eller ringe andre programmer fra Word , Excel eller Access. Den enkleste måten å utføre denne oppgaven er gjennom VBA SHELL kommandoen. Denne kommandoen lanserer en annen Windows eller kommandolinje program for å kjøre uavhengig av Office-programmet . Når det andre programmet kjører, kan Office-programmet fortsette å utføre andre oppgaver . Bruk en enkel teknikk for å kjøre Winzip og arkivere et sett med filer ved hjelp av en Microsoft Access-skjema . Du trenger
Microsoft Access 2000 eller senere
WinZip
Vis flere instruksjoner
en
Åpen Microsoft Access ( 2000 eller senere ) , og opprette en ny database kalt ZipSample .
2
Opprett en ny ubundet form som kalles ZipForm . Dette skjemaet har ingen tabell knyttet til den. I stedet vil den godta mappen og zip filnavnene tastet av brukeren deretter zip filene når knappen klikkes.
3
Legg to tekstbokser og en knapp i skjemaet .
Navn den første tekstboksen " mappenavn" og gi den bildeteksten "Folder : "
Navn den andre tekstboksen " zipfile " og gi den bildeteksten " Zip-fil : "
< p > Endre etiketten på knappen for å "Zip ".
4
Høyreklikk på Zip -knappen og velg bYGGE etterfulgt av CODE . Dette vil åpne Visual Basic vindu med en ny tom metode . Inne i metoden kroppen (på den blanke linjen ovenfor End Sub) skriv inn følgende kode :
SHELL "" " c: \\ Program Files \\ WinZip \\ WinZip32 " "- min - a- r" & zipfile . & " " & Mappenavn & " \\ * *"
Når evaluert av VBA tolk, vil denne koden fatte følgende tekst til kommandoen tolk:
" c: \\ Program Files \\ WinZip \\ WinZip32 "- min - a - r zipfile.zip mappenavn \\ * *
WinZip kan kjøre med en rekke kommandolinjeparametrene . . I dette tilfellet , er kommandoen ber WinZip for å legge alle filene i mappen mappenavn til arkivet zipFile.zip . The - min argumentet forteller WinZip for å kjøre minimert ( i bakgrunnen ) , - en indikerer at det er å legge til filer i arkivet og - r angir at alle filer i undermapper i denne mappen skal også legges til. Se WinZip nettsted (se Ressurser) for kommandolinje opsjoner og en fullstendig liste over kommandolinje argumenter.
5
Lagre og lukk Visual Basic -vinduet , lagre skjemaet deretter bytte å danne visning. Skjemaet vil dukke opp med de to tekstbokser og en knapp . Fyll ut skjemaet og klikk på Zip -knappen for å teste formen .
