Sapendo come estrarre file compressi con Visual Basic Applications Edition (VBA) è buona abilità da avere. Un file zippato contiene uno o più file compressi e viene comunemente utilizzato per risparmiare spazio sul disco rigido. Un vantaggio di un file zip è che può essere trasferita più velocemente da un luogo a altro. VBA è comunemente usato nelle applicazioni di Microsoft Office come Excel, Access e Word e ti dà la flessibilità necessaria per automatizzare i compiti ripetitivi.
Istruzioni
1
Aprire Microsoft Excel e, sotto la scheda di sviluppo"," fare clic su "Visual Basic". Digitare "Sub filesToUnzip()" e premere "Invio" per creare un nuovo sub.
2
Digitare "Dim oApplicationlication As Object
Dim fileName As Variant
Dim folderFileName As Variant" to declare variables.
3
Tipo "fileName = Application.GetOpenFilename (filefilter: =" file Zip (. zip), . zip ", MultiSelect: = False)" aprire una finestra del browser di file e scegliete il file zip per decomprimere.
4
Tipo "folderFileName ="C:\UnzippedFiles"&"\"
MkDir folderFileName
Set oApplication = CreateObject "per creare una cartella di destinazione per i file decompressi.
5
Digitare "oApplication.Namespace(folderFileName). CopyHere oApplication.Namespace (fileName) piatti"per estrarre i file compressi. Tipo "MsgBox"Avere estratto i file zip di C:\UnzippedFiles\", vbInformation" per visualizzare un messaggio che i file estratti correttamente.
6
Se necessario, immettere "End Sub". Eseguire il tuo nuovo sub per estrarre i file dal file zip.
Consigli & Avvertenze
- Il tuo sub dovrebbe assomigliare a questo:
- "Sub filesToUnzip()
- Dim oApplicationlication As Object
- Dim fileName As Variant
- Dim folderFileName As Variant
- fileName = Application.GetOpenFilename (filefilter: = "file Zip (*. zip), *. zip", MultiSelect: = False)
- folderFileName = "C:\UnzippedFiles" & "\"
- MkDir folderFileName
- Set oApplication = CreateObject
- oApplication.Namespace(folderFileName). CopyHere oApplication.Namespace (fileName) piatti
- MsgBox "Avere estratto i file zip di C:\UnzippedFiles\", vbInformation
- End Sub"