Bij het programmeren in Microsoft Office Visual Basic for Applications ( VBA ) , is het soms noodzakelijk om andere programma's vanuit Word opent of bel , Excel of Access . De eenvoudigste manier om deze taak uit te voeren is door de VBA SHELL commando . Dit commando start een andere Windows of command line programma om onafhankelijk van de Office-programma uitvoeren . Zodra de andere programma draait , kan het Office-programma blijven andere taken uit te voeren . Gebruik een eenvoudige techniek om Winzip en archiveren een set bestanden met behulp van een Microsoft Access-formulier te voeren . Wat je
Microsoft Access 2000 of hoger
WinZip
Need Toon Meer Aanwijzingen
Open Microsoft Access ( 2000 of hoger ) 1 en maak een nieuwe database genaamd ZipSample . kopen van 2 Maak een nieuwe ongebonden vorm genaamd ZipForm . Deze vorm heeft geen tafel die ermee verbonden zijn . In plaats daarvan , zal het map te accepteren en zip-bestand namen ingetoetst door de gebruiker vervolgens zip de bestanden wanneer de knop wordt geklikt .
3 Voeg twee tekstvakken en een knop op het formulier . < Br Name > het eerste tekstvak " mapNaam " en geef het de titel ' Folder : " Naam
het tweede tekstvak " ZipFile " en geef het de titel " Zip File : "
Verander de label op de knop om " Zip . "
4 klik met de rechtermuisknop op de knop Zip en kies BOUWEN gevolgd door CODE . Dit zal de Visual Basic -venster te openen met een nieuwe lege methode . Binnen de methode lichaam ( op de lege regel boven End Sub ) voer de volgende code : SHELL
" " " c: \\ Program Files \\ WinZip \\ WinZip32 " " - min - a - r" & ZipFile . & " " & Mapnaam & " \\ * * "
Toen geëvalueerd door de VBA interpreter , deze code zal de volgende tekst door te geven aan de commando-interpreter :
" c : \\ Program Files \\ WinZip \\ WinZip32 " - min - a - r zipfile.zip mapNaam \\ * * WinZip
kan draaien met een aantal command line parameters . . In dit geval wordt het commando vraagt WinZip om alle bestanden in de map mapNaam naar het archief zipFile.zip voegen . De - min argument vertelt WinZip om te draaien tot een minimum beperkt ( op de achtergrond ) , - een geeft aan dat het om bestanden toe te voegen aan het archief en - r geeft aan dat alle bestanden in submappen in deze map ook moet worden toegevoegd . Zie de website van WinZip ( zie bronnen ) voor de command line opties en een volledige lijst van command line argumenten .
5 Opslaan en sluiten van de Visual Basic -venster , sla het formulier vervolgens overschakelen naar weergave vormen. Het formulier zal verschijnen met de twee tekstvakken en een knop . Vul het formulier in en klik op de knop Zip om het formulier te testen .
|
