Wie man eine Zip-Datei mit VBA extrahieren . Ein ZIP-Datei enthält eine oder mehrere komprimierte Dateien und wird häufig verwendet, um Platz auf der Festplatte zu speichern. Ein Vorteil einer zip-Datei ist, dass es übertragen kann schneller von einem Ort zum anderen werden. VBA wird allgemein in Microsoft Office-Anwendungen wie Excel, Access und Word verwendet und gibt Ihnen die Flexibilität , um gemeinsame wiederholende Aufgaben zu automatisieren . Anleitung
1

Öffnen Sie Microsoft Excel , und unter der "Entwickler Tab ", klicken Sie auf " Visual Basic ". Typ "Sub filesToUnzip ()" und drücken Sie " Enter", um ein neues Sub erstellen.
2

Type " Dim oApplicationlication As Object Dim

Dateinamen als Variant

Dim folderFileName As Variant filename = Application.GetOpenFilename ( filefilter ", um Variablen zu deklarieren
3

Typ . ": = " . . Zip -Dateien (* zip) , * zip" , MultiSelect : = False) " , um eine Datei Browser-Fenster und wählen Sie die Zip-Datei entpacken zu
4

Typ . " folderFileName = "C : \\ UnzippedFiles " & "\\"

MkDir folderFileName

Set oApplication = CreateObject (" Shell.Application " ) oApplication.Namespace ( folderFileName ) . CopyHere oApplication " einen Zielordner für die extrahierten Dateien .
5

Typ erstellen " . Namespace (Dateiname). Elemente ", um die ZIP- Dateien zu extrahieren. Type " MsgBox" Sie haben die zip -Dateien in C extrahiert : \\ UnzippedFiles \\ " , vbInformation ", um eine Meldung, dass Ihre Dateien erfolgreich extrahiert anzuzeigen
6

Typ "End Sub " , wenn nötig. . Führen Sie Ihre neue Sub um Dateien von Ihrer ZIP-Datei zu extrahieren.