Come estrarre un file ZIP con VBA

Sapendo come estrarre i file zippati con Visual Basic, Applications Edition (VBA ) è buona abilità di avere . Un file zippato contiene uno o più file compressi ed è comunemente utilizzato per risparmiare spazio sul disco rigido . Un vantaggio di un file zip è che può essere trasferito più velocemente da un luogo ad un altro . VBA è comunemente utilizzato nelle applicazioni di Microsoft Office come Excel, Access e Word e ti dà la flessibilità necessaria per automatizzare le attività ripetitive . Istruzioni
1

Aprire Microsoft Excel e , sotto la " scheda Sviluppo ", clicca su " Visual Basic ". Tipo "Sub filesToUnzip ( ) " e premere " Invio " per creare una nuova sotto .
2

Tipo " Dim oApplicationlication As Object

Dim fileName As Variant

dim folderFileName As Variant fileName = Application.GetOpenFilename ( FileFilter " per dichiarare variabili
3

Type . " : = " . . Zip File ( * zip) , * zip" , MultiSelect : = False) "per aprire una finestra del browser di file e scegliere il file zip per decomprimere
4

tipo . " folderFileName = " C : \\ UnzippedFiles " & " \\ "

MkDir folderFileName

oApplication = CreateObject ( " Shell.Application " ) "per creare una cartella di destinazione per i file decompressi .
5

Tipo " oApplication.Namespace ( folderFileName ) . oApplication CopyHere . Spazio dei nomi ( nome file). voci " per estrarre i file zippati . Tipo " MsgBox" aver estratto i file zip in C: \\ UnzippedFiles \\ " , vbInformation " per visualizzare un messaggio che i file estratti con successo
6

tipo "End Sub ", se necessario . . Eseguire il nuovo sub per estrarre i file dal file compresso .