Estrarre file da file ZIP

giulianovac

Access/VBA Expert
Staff
9 Giugno 2018
5.260
245
Italy
2019
415
Ecco una semplice routine per estrarre i file da un file ZIP.
Copiare la routine in un modulo del vostro file XLSM ed eseguirla.

All'avvio viene chiesto di selezionare il file ZIP da cui estrarre i file, che verranno estratti nella cartella \FileEstratti\ nello stesso percorso del proprio file XLSM.

Codice:
Sub UnzipFile()
    Dim Filename As Variant
    Dim Folder As Variant
    Filename = Application.GetOpenFilename(FileFilter:="file ZIP (* .zip), * .zip", MultiSelect:=False)
    Folder = ThisWorkbook.Path & "\FileEstratti\"
    If Dir$(Folder, vbDirectory) = "" Then
        MkDir Folder
    End If
    Dim oApplication As Object
    Set oApplication = CreateObject("Shell.Application")
    oApplication.Namespace(Folder).CopyHere oApplication.Namespace(Filename).items
    MsgBox "File estratti", vbInformation
End Sub
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!