• 
  

  hur man extraherar en zip- fil med VBA

  
  

Att veta hur man extrahera zip -filer med Visual Basic for Applications ( VBA ) är god färdighet att ha . En zip- fil 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 används ofta i Microsoft Office-program som Excel , Access och Word och ger dig möjlighet att automatisera vanliga återkommande uppgifter
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 .
Typ " Dim oApplicationlication As Object

Dim filnamnet som Variant

Dim folderFileName As Variant " att deklarera variabler
3
Typ . "filnamn=Application. GetOpenFilename ( FileFilter :=" zip-filer ( *. zip ) , *. zip " , MultiSelect :=false) "för att öppna ett fönster filhanterare och välja zip -filen för att packa
4
Typ " folderFileName="C : . \ UnzippedFiles " " \ "

MkDir folderFileName

Set oApplication=CreateObject ( " Shell . Ansökan " ) "för att skapa en mapp för de uppackade filerna .
5 .
Typ " oApplication. Namespace ( folderFileName ) . CopyHere oApplication. Namespace ( filnamn) . poster " för att extrahera zip-filer . Skriv " MsgBox " Du har extraherat zip -filer till C : \ UnzippedFiles \ " , vbInformation "för att visa ett meddelande om att dina filer extraheras framgångsrikt
6
Skriv " End Sub " om . nödvändigt . Kör din nya sub att extrahera filer från din komprimerad


tips och varningar




din sub se ut så här : .

" Sub filesToUnzip ()

Dim oApplicationlication As Object

Dim filnamnet som Variant

Dim folderFileName As Variant

filename=Application . GetOpenFilename ( FileFilter :=" zip-filer ( *. zip ) , *. zip " , MultiSelect :=False )

folderFileName=" C : \ UnzippedFiles " " \ "

MkDir folderFileName

Set oApplication=CreateObject ( " Shell. Application " )

oApplication. Namespace ( folderFileName ) . CopyHere oApplication. Namespace ( filnamn) . poster

MsgBox "Du har extraherat zip -filer till C : \ UnzippedFiles \ " , vbInformation

End Sub "

Previous：nothing Next：Spelregler för en JSP- fil

Relaterade artiklar