Como extrair um arquivo zip com VBA

Sabendo como extrair arquivos compactados com o Visual Basic for Applications (VBA) é boa habilidade de ter. Um arquivo compactado contém um ou mais arquivos compactados e é comumente usado para salvar espaço no disco rígido. Um benefício de um ficheiro ZIP é que ele pode ser transferido mais rapidamente de um local para outro. VBA é comumente usado em aplicações do Microsoft Office, como o Excel, Access e Word e dá-lhe a flexibilidade para automatizar tarefas repetitivas comuns.

Abra o Microsoft Excel e, sob a "Tab Developer," Clique em "Visual básico." Digitar "Sub filesToUnzip ()" e pressione "Entrar" para criar uma nova sub.

Digitar "oApplicationlication Dim As Object

Dim fileName As Variant
Dim folderFileName As Variant" para declarar variáveis.

Digitar "fileName = Application.GetOpenFilename (FileFilter: ="Arquivos Zip (.fecho eclair), .fecho eclair", MultiSelect: = false)" para abrir uma janela do navegador de arquivos e escolha o arquivo zip para descompactar.
Digitar "folderFileName = "C: UnzippedFiles" & ""
MkDir folderFileName
Definir oApplication = CreateObject ("Shell.Application")" para criar uma pasta de destino para os arquivos descompactados.
Digitar "oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (filename) .items" para extrair os arquivos compactados. Digitar "MsgBox "Você extraiu os arquivos zip para C: UnzippedFiles", vbInformation" para exibir uma mensagem que seus arquivos extraídos com êxito.
Digitar "End Sub" se necessário. Executar o seu novo sub para extrair arquivos de seu arquivo compactado.

dicas & avisos

Seu sub deve ficar assim:
"Sub filesToUnzip ()
oApplicationlication Dim As Object
Dim fileName As Variant
Dim folderFileName As Variant
fileName = Application.GetOpenFilename (FileFilter: ="Zip Files (* .zip), * .zip", MultiSelect: = false)
folderFileName = "C: UnzippedFiles" & ""
MkDir folderFileName
Definir oApplication = CreateObject ("Shell.Application")
oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (filename) .items
MsgBox "Você extraiu os arquivos zip para C: UnzippedFiles", vbInformation
End Sub"

De esta maneira? Compartilhar em redes sociais: