Cómo extraer un archivo zip con vba

February 1

Cómo extraer un archivo zip con vba


Saber cómo extraer archivos comprimidos con Visual Basic para aplicaciones (VBA) es buena habilidad para tener. Un archivo comprimido contiene uno o más archivos comprimidos y se utiliza comúnmente para ahorrar espacio en disco duro. Una ventaja de un archivo zip es que se pueden transferirse rápidamente de un lugar a otro. VBA se utiliza comúnmente en aplicaciones de Microsoft Office como Excel, Access y Word y te da la flexibilidad necesaria para automatizar tareas repetitivas comunes.

Instrucciones

• Abrir Microsoft Excel y, en la "ficha de programador", haga clic en "Visual Basic". Escribe "Sub filesToUnzip()" y presionar "Enter" para crear un nuevo sub.

• Tipo "Dim oApplicationlication como objeto Dim filename como variante Dim folderFileName como variante" para declarar variables.

• Tipo "nombre de archivo = Application.GetOpenFilename (filefilter: =" archivos Zip (* .zip), * .zip ", MultiSelect: = False)" para abrir una ventana de explorador de archivo y seleccione el archivo zip para descomprimir.

• Tipo "folderFileName ="C:\UnzippedFiles"&"\"MkDir folderFileName Set oApplication = CreateObject("Shell.Application")" para crear una carpeta de destino para los archivos descomprimidos.

• Tipo "oApplication.Namespace(folderFileName). CopyHere oApplication.Namespace (filename) .items"para extraer los archivos comprimidos. Tipo "MsgBox"Ha extraído los archivos zip a C:\UnzippedFiles\", vbInformation" para mostrar un mensaje que los archivos extraen con éxito.

• Tipo "End Sub" si es necesario. Ejecute su nuevo sumiso para extraer archivos del archivo comprimido.


Related Articles