Thebellmeade.com

Cómo extraer un archivo zip con vba


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.


        

Publish my comment