VBA: Descompacte para uma pasta específica com o WinZip (VBA)

| Blog Office VBA | Blog Excel | Blog Access |

Senhoras e senhores, segue uma funcionalidade muito útil para aqueles
que lidam com grandes volumes de dados e querem acrescentar certa
  sofisticação às suas aplicações.

Que tal compactar e descompactar os dados

Tanto o nome como a pasta destino estão no código do exemplo.

Sub DEScompacte_Zip()
    Dim PathWinZip As String
    Dim FileNameZip As String
      Dim ShellStr As String
    Dim FolderName As String

    Let PathWinZip = "C:\A&A\winzip\"

   ' Aqui checaremos o local onde o WinZip está instalado.
   If Dir(PathWinZip & "winzip32.exe") = "" Then
          MsgBox "Por favor, identifique onde a sua cópia do winzip32.exe está instalada e tente novamente"

       Exit Sub
   End If

    Let FileNameZip = "C:\Dados\Test.zip"
   Let FolderName = "C:\Dados\"

    ' Descompacta o arquivo Zip na pasta FolderName.
   Let ShellStr = PathWinZip & "Winzip32 -min -e" & " " & Chr(34) & FileNameZip & Chr(34) & " " & Chr(34) & FolderName & Chr(34)
 
   ShellAndWait ShellStr, vbHide

    MsgBox "Observe a pasta " & FolderName & " onde os arquivos foram descompactados"
End Sub

André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com