Wie zum Extrahieren von Zip-Datei mit VBA

June 10

Wie zum Extrahieren von Zip-Datei mit VBA

Gewusst wie: Extrahieren von ZIP-Dateien mit Visual Basic für Applikationen (VBA) wissen, ist gutes Geschick zu haben. Eine ZIP-Datei enthält eine oder mehrere komprimierte Dateien und wird häufig verwendet, um Festplattenplatz zu sparen. Ein Vorteil einer Zip-Datei ist, dass es schneller von einem Ort zum anderen übertragen werden kann. VBA wird häufig in Microsoft Office-Anwendungen wie Excel, Access und Word verwendet und gibt Ihnen die Flexibilität, sich wiederholende Aufgaben zu automatisieren.

Anweisungen

1 Öffnen Sie Microsoft Excel, und klicken Sie unter der "Developer Registerkarte" auf "Visual Basic." Geben Sie "Sub filesToUnzip()", und drücken Sie "Enter" eine neue Sub erstellen.

2 Geben Sie "Dim oApplicationlication als Objekt

Dim fileName As Variant

Dim folderFileName As Variant" to declare variables.3

Typ "FileName = Application.GetOpenFilename (Filefilter: =" Zip-Dateien (ZIP), zip ", MultiSelect: = False)" ein Datei-Browser-Fenster und wählen die Zip-Datei entpacken.

4 Typ "FolderFileName ="C:\UnzippedFiles"&"\"

MkDir folderFileName

Set oApplication = CreateObject("Shell.Application") "um einen Zielordner für die entpackten Dateien zu erstellen.

5 Geben Sie "oApplication.Namespace(folderFileName). CopyHere oApplication.Namespace (Dateiname) .items"die gezippten Dateien zu extrahieren. Typ "MsgBox"Sie haben die Zip-Dateien in C:\UnzippedFiles\ extrahiert", VbInformation" eine Meldung angezeigt, dass Ihre Dateien erfolgreich extrahiert.

6 Falls erforderlich, geben Sie "End Sub". Führen Sie Ihre neuen Sub zum Extrahieren von Dateien aus der ZIP-Datei.

Tipps & Warnungen

  • Ihre Sub sollte wie folgt aussehen:
  • "Sub filesToUnzip()
  • Dim oApplicationlication As Object
  • Dim FileName As Variant
  • Dim FolderFileName As Variant
  • FileName = Application.GetOpenFilename (Filefilter: = "Zip-Dateien (* .zip), * .zip", MultiSelect: = False)
  • FolderFileName = "C:\UnzippedFiles" & "\"
  • MkDir folderFileName
  • Set oApplication = CreateObject("Shell.Application")
  • oApplication.Namespace(folderFileName). CopyHere oApplication.Namespace (Dateiname) .items
  • MsgBox "Sie haben die Zip-Dateien in C:\UnzippedFiles\ extrahiert", VbInformation
  • EndSub"

SIE KÖNNEN AUCH GERNE