Sachant comment extraire les fichiers compressés avec Visual Basic pour Applications (VBA) est une bonne habileté à avoir. Un fichier compressé contient un ou plusieurs fichiers compressés et est couramment utilisé pour économiser l`espace disque dur. Un avantage d`un fichier zip est qu`il peut être transféré rapidement d`un endroit à un 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.
Ouvrez Microsoft Excel et, sous 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 VariantDim folderFileName As Variant" pour déclarer des variables.
Type "fileName = Application.GetOpenFilename (FileFilter: ="Fichiers Zip (.Zip *: français), .Zip *: français", MultiSelect: = Faux)" pour ouvrir une fenêtre de navigateur de fichier et choisissez le fichier zip à décompresser.
Type "folderFileName = "C: UnzippedFiles" & ""
MkDir folderFileName
Set oApplication = CreateObject ("Shell.Application")" pour créer un dossier de destination pour les fichiers décompressés.
Type "oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (filename) .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 pour extraire les 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: ="Zip Files (* .zip), * .zip", MultiSelect: = Faux)
- folderFileName = "C: UnzippedFiles" & ""
- MkDir folderFileName
- Set oApplication = CreateObject ("Shell.Application")
- oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (filename) .items
- MsgBox "Vous avez extrait les fichiers zip dans C: UnzippedFiles", vbInformation
- End Sub"
