Nwlapcug.com


Come estrarre un File Zip con VBA

Come estrarre un File Zip con VBA


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"