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

Abra o Microsoft Excel e , de acordo com o "Guia do desenvolvedor ", clique em " Visual Basic ". Tipo "Sub filesToUnzip ()" e pressione "Enter " para criar um novo sub .
2

Type " Dim oApplicationlication As Object

Dim fileName As Variant

Dim folderFileName As Variant " para declarar variáveis ​​
3

Digite . " filename = Application.GetOpenFilename ( FileFilter : = " . Arquivos Zip (* zip ), * zip. " , MultiSelect : = . " para abrir uma janela do navegador de arquivos e escolha o arquivo zip para descompactar
4

Type" false) folderFileName = " C: \\ UnzippedFiles " & "\\"

MkDir folderFileName

Set oApplication = CreateObject (" Shell.Application ") "
5 Tipo

para criar uma pasta de destino para os arquivos descompactados . " oApplication.Namespace ( folderFileName ) . CopyHere oApplication . namespace ( filename). itens " para extrair os arquivos zipados . Digite " MsgBox" Você extraiu os arquivos zip para C: . \\ UnzippedFiles \\ " , vbInformation " para exibir uma mensagem de que os arquivos extraídos com êxito
6

Type " End Sub " , se necessário. Executar o seu novo sub para extrair arquivos de seu arquivo zipado .