Cómo extraer un archivo zip con VBA

Conocer cómo extraer archivos comprimidos con Visual Basic para Aplicaciones ( VBA ) es buena habilidad para tener . Un archivo comprimido contiene uno o varios archivos comprimidos y se utiliza comúnmente para ahorrar espacio en el disco duro. Una de las ventajas de un archivo zip es que se puede transferir más rápido de un lugar a otro . VBA es comúnmente usado en aplicaciones de Microsoft Office como Excel , Access y Word , y le da la flexibilidad para automatizar tareas repetitivas comunes. Instrucciones
1

Abra Microsoft Excel y , bajo la pestaña " programador", haga clic en " Visual Basic ". Tipo " Sub filesToUnzip ()" y presionar "Enter " para crear un nuevo sub .
2

Type " oApplicationlication Dim As Object

fileName Dim As Variant

folderFileName Dim As Variant fileName = Application.GetOpenFilename ( FileFilter " para declarar variables
3

tipo . ": = " . . Archivos Zip (* zip) , * zip" , MultiSelect : = Falso) "para abrir una ventana del explorador de archivos y seleccione el archivo zip para descomprimir
4

Tipo ". folderFileName = "C : \\ UnzippedFiles " y "\\ "

MkDir folderFileName

Set oApplication = CreateObject ( " Shell.Application ") "para crear una carpeta de destino para los archivos descomprimidos .
5

Type" oApplication.Namespace ( folderFileName ) . oApplication CopyHere . Espacio de nombres ( nombre de archivo) . elementos " para extraer los archivos comprimidos . Tipo " MsgBox " Usted ha extraído los archivos zip en C: \\ UnzippedFiles \\ " , vbInformation " para mostrar un mensaje de que los archivos extraídos con éxito
6

tipo "End Sub " si es necesario. . Ejecute sus nuevos sub extraer archivos desde el archivo comprimido.