Comment faire pour extraire un fichier zip avec VBA

Sachant comment extraire les fichiers compressés avec Visual Basic pour Applications (VBA) est une bonne compétence à avoir. Un fichier compressé contient un ou plusieurs fichiers compressés et est couramment utilisé pour sauver l'espace disque dur. Un avantage d'un fichier zip est qu'il peut être transféré rapidement d'un endroit à l'autre. VBA est couramment utilisé dans les applications Microsoft Office tels que Excel, Access et Word et vous donne la possibilité d'automatiser les tâches répétitives communes.

Contenu

Instructions
Conseils & avertissements

Instructions

Ouvrez Microsoft Excel et, en vertu de la "Onglet Développeur," cliquer sur "Visual Basic." Type "Sous filesToUnzip ()" et appuyez sur "Entrer" pour créer un nouveau sous.

Type "OApplicationlication Dim As Object

Dim fileName As Variant


Dim folderFileName As Variant" pour déclarer des variables.

Type "filename = Application.GetOpenFilename (FileFilter: ="Fichiers Zip (.zip), .fermeture éclair", MultiSelect: = Faux)" pour ouvrir une fenêtre de navigateur de fichier et choisissez le fichier zip à décompresser.
Type "folderFileName = "C: UnzippedFiles" & ""

MkDir folderFileName
Réglez oApplication = CreateObject ("Shell.Application")" pour créer un dossier de destination pour les fichiers décompressés.
Type "oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (nom de fichier) .items" pour extraire les fichiers compressés. Type "MsgBox "Vous avez extrait les fichiers zip dans C: UnzippedFiles", VbInformation" pour afficher un message que vos fichiers extraits avec succès.
Type "End Sub" si nécessaire. Exécutez votre nouveau sous d'extraire des fichiers à partir de votre fichier zippé.

Conseils & Avertissements

Votre sous devrait ressembler à ceci:
"Sous filesToUnzip ()
OApplicationlication Dim As Object
Dim fileName As Variant
Dim folderFileName As Variant
filename = Application.GetOpenFilename (FileFilter: ="Fichiers Zip (* .zip), * .zip", MultiSelect: = Faux)
folderFileName = "C: UnzippedFiles" & ""
MkDir folderFileName
Réglez oApplication = CreateObject ("Shell.Application")
oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (nom de fichier) .items
MsgBox "Vous avez extrait les fichiers zip dans C: UnzippedFiles", VbInformation
End Sub"

Les sujets:

Réponses populaires

Questions connexes