Vid programmering i Microsoft Office Visual Basic for Applications ( VBA ) , är det ibland nödvändigt att öppna eller ring andra program inifrån Word , Excel eller Access . Det enklaste sättet att utföra denna uppgift är genom VBA skalkommandot . Detta kommando startar ett annat Windows eller kommandorad program att köra oberoende av Office-programmet . När det andra programmet körs , kan Office-programmet fortsätta att utföra andra arbetsuppgifter . Använd en enkel teknik för att köra Winzip och arkivera en uppsättning filer med hjälp av en Microsoft Access- formulär . Saker du behöver
Microsoft Access 2000 eller senare
WinZip
Visa fler instruktioner
1
Öppna Microsoft Access ( 2000 eller senare ) och skapa en ny databas som kallas ZipSample .
2
Skapa en ny obunden form som kallas ZipForm . Denna form har ingen tabell i samband med det . Istället kommer den godta mapp och zip filnamn knappat av användaren då zip filerna när knappen klickas .
3
Lägg två textrutor och en knapp i formuläret .
Namn den första textrutan " mappnamn " och ge den bildtexten " Folder : "
Namn den andra textrutan " zipfil " och ge den bildtexten " Zip-fil : "
Ändra etiketten på knappen " Zip ".
4
Högerklicka på zip -knappen och välj BUILD följt av koden. Detta kommer att öppna Visual Basic fönstret med ett nytt tomt metod . Inuti metoden kroppen ( på den tomma raden ovanför End Sub ) skriv följande kod :
SHELL " " " C: \\ Program Files \\ WinZip \\ WinZip32 " " - min - a - r" & zipfil . & " " & FolderName & " \\ * * "
När utvärderas av VBA tolken , kommer denna kod att passera följande text till kommandotolk :
" c: \\ Program Files \\ WinZip \\ WinZip32 " - min - a - r zipfile.zip mappnamn \\ * *
WinZip kan köras med ett antal parametrar kommandoraden . . I detta fall är kommandot frågar WinZip för att lägga alla filer i mappen mappnamn till arkivet zipFile.zip . Den - min Argumentet berättar WinZip för att köra minimeras ( i bakgrunden ) , - a indikerar att det är att lägga till filer i arkivet och - r anger att alla filer i undermappar i denna mapp också bör läggas . Se WinZip webbplats ( se Resurser ) för kommandoradsflaggor och en komplett lista över kommandoradsargument .
5
Spara och stäng Visual Basic fönstret , spara formuläret och sedan växla till att bilda uppfattning . Formuläret kommer att visas med de två textrutor och en knapp . Fyll i formuläret och klicka på Zip -knappen för att testa formen .
