Weten hoe je gezipte bestanden uit te pakken met Visual Basic for Applications ( VBA ) is een goede vaardigheid om te hebben . Een zip -bestand bevat een of meer gecomprimeerde bestanden en wordt vaak gebruikt om schijfruimte te besparen . Een voordeel van een zip-bestand is dat het sneller van de ene locatie naar de andere kunnen worden overgebracht . VBA wordt vaak gebruikt in Microsoft Office-toepassingen zoals Excel , Access en Word en geeft u de flexibiliteit om gemeenschappelijke repetitieve taken te automatiseren . Instructies Open Microsoft Excel 1 en , onder de " Developer Tab , " klik op " Visual Basic . " Type " Sub filesToUnzip ( ) " en druk op " Enter " om een nieuwe sub maken . Type " Dim oApplicationlication 2 als Voorwerp Dim fileName als Variant Dim folderFileName als Variant fileName = Application.GetOpenFilename ( FileFilter " om variabelen te verklaren Type 3 . " : = " . . zip-bestanden ( * zip ) , * zip " , MultiSelect : = false) " om een venster bestand browser te openen en kies het zip-bestand uit te pakken Type 4 . " folderFileName = " C : \\ UnzippedFiles " & " \\ " MkDir folderFileName Set oApplication = CreateObject ( " Shell.Application " ) oApplication.Namespace ( folderFileName ) . CopyHere oApplication "om een doelmap voor de uitgepakte bestanden . 5 Type creëren" . namespace ( fileName ) . posten "om de gecomprimeerde bestanden uit te pakken . Type " MsgBox" Je hebt het zip-bestanden uitgepakt naar C : \\ UnzippedFiles \\ " , vbInformation " om een bericht dat uw bestanden uitgepakt met succes weer Type " End Sub " 6 indien nodig . . Run je nieuwe sub om bestanden uit je zipbestand .
|