October 4
Sapendo come estrarre file compressi con Visual Basic, Applications Edition (VBA) è buona abilità di avere. Un file zip contiene uno o più file compressi ed è comunemente utilizzato per salvare spazio sul disco rigido. Un vantaggio di un file zip è che può essere trasferito più velocemente da una posizione all'altra. VBA è comunemente utilizzato nelle applicazioni di Microsoft Office come Excel, Access e Word e ti dà la flessibilità per automatizzare le operazioni ripetitive comuni.
1 Aprire Microsoft Excel e, sotto la "Sviluppatore Tab", cliccare su "Visual Basic". Digitare "Sub filesToUnzip ()" e premere "Invio" per creare una nuova sotto.
2 Tipo "Dim oApplicationlication As Object
Dim fileName As Variant
Dim folderFileName As Variant "per dichiarare le variabili.
3 Tipo "filename = Application.GetOpenFilename (FileFilter: =" file Zip
(.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
Set oApplication = CreateObject ( "Shell.Application") "per creare una cartella di destinazione per i file decompressi.
5 Tipo "oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (fileName) .Items" per estrarre i file compressi. Tipo "MsgBox" aver estratto i file zip per 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.