Att veta hur man extrahera zippade filer med Visual Basic for Applications ( VBA ) är bra färdighet att ha . En zippade filen innehåller en eller flera komprimerade filer och används ofta för att spara hårddiskutrymme . En fördel med en zip-fil är att den kan överföras snabbare från en plats till en annan . VBA är vanligt i Microsoft Office-program som Excel , Access och Word och ger dig flexibiliteten att automatisera vanliga repetitiva uppgifter . Instruktioner
1
Öppna Microsoft Excel och , under " fliken Utvecklare " klicka på " Visual Basic . " Typ " Sub filesToUnzip ( ) " och tryck på " Enter " för att skapa en ny sub .
2
Type " Dim oApplicationlication As Object
Dim filnamn As Variant
Dim folderFileName As Variant filename = Application.GetOpenFilename ( FileFilter " att deklarera variabler Addera 3
Type . " : = " . . zip-filer ( * zip ) , * zip " , MultiSelect : = falskt ) " för att öppna ett fönster filhanterare och välj zip-filen för att packa upp
4
Type . " folderFileName = " C : \\ UnzippedFiles " & " \\ "
MkDir folderFileName
Set oApplication = CreateObject ( " Shell.application " ) " för att skapa en målmapp för de uppackade filerna .
5
Type " oApplication.Namespace ( folderFileName ) . CopyHere oApplication . namnrymden (filename ) . objekt " för att extrahera zippade filer . Typ " MsgBox " Du har extraherat zip-filer till C : \\ UnzippedFiles \\ " , vbInformation " att visa ett meddelande om att dina filer extraheras framgångsrikt
6
Typ " End Sub " om det behövs . . Kör dina nya sub att extrahera filer från zip -filen .
