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 den här åtgärden är genom VBA skalkommando . Kommandot startar en annan Windows eller kommandorad program att köra oberoende av Office-programmet . När det andra programmet är igång kan det Office-program fortsätta att utföra andra uppgifter . 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 .
Du behöver :
Microsoft Access 2000 eller senare
. WinZip .
1 .
Öppna Microsoft Access ( 2000 eller senare ) och skapa en ny databas som heter ZipSample .
2 .
Skapa en ny obunden form som kallas ZipForm . Denna form har ingen tabell associerade med den. Istället kommer den godta mapp och namn zip -fil knappat av användaren sedan zip filerna när knappen klickas.
3 .
Tillsätt två textrutor och en knapp i formuläret .
Namn den första textrutan " mappnamn " och ge den rubriken " Folder : "
Namn den andra textrutan " zipfil " och ge den rubriken " Zip-fil : "
Ändra etiketten på knappen för att " Zip . "
4 .
Högerklicka på Zip -knappen och välj BYGGA följt av kod . Detta kommer att öppna Visual Basic -fönstret med en ny tom metod . Inuti metoden kroppen ( på den tomma raden ovan End Sub ) ange följande kod :
SHELL " " " C : \ Program \ Winzip \ WinZip32 ""-min-a- r " ; zipfil "" Mappnamn " \ *. *"
När utvärderas av VBA tolk , kommer denna kod klara följande text till kommandot tolk :
"C : \ Program \ Winzip \ WinZip32 "-min-a-r zipfil . zip mappnamn \ *. *
WinZip kan köra med ett antal parametrar kommandoraden . I detta fall är det kommando ber WinZip för att lägga alla filer i mappen mappnamn till arkivet zipFile. zip . Den-min argument talar WinZip att köra minimerat ( i bakgrunden ) ,-en anger 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 till. Se WinZip webbplats ( se Resurser ) för kommandoradsflaggor och en fullständig förteckning över kommandoradsargument .
5 .
Spara och stäng Visual Basic -fönstret , spara formuläret sedan byta till Formulär. 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 .
tips och varningar
På WinZip kommandoraden , är de citat som krävs sedan mappen " Program Files " innehåller ett mellanslag. Lägga två citat tillsammans i en VBA bokstavlig sätter ett citat i texten strängen .