mit excel makro bestimmte datei in zip datei entpacken

Skydog · 2024-07-23T12:27:22+00:00

Hallo liebe Excel Gemeinde, ich habe eine zip Datei mit mehreren Ordner/Unterordern und ca. 13.000 Dateien. Von diesen Dateien benötige ich aber nur eine Datei, die in einem Unterordner ist. Bisher entpacke ich die ZIP Datei (1,1 GB) über VBA in einem Temp-Ordner und kopiere dann die gewünschte Datei in einen Ordner. Anschließend wird der Temp-Ordner gelöscht. Dies funktioniert soweit einwandfrei. Nun mein Problem: Aufgrund der Anzahl der Dateien dauert das Entpacken ca. 15 Minuten. Ist es möglich, in der ZIP-Datei lediglich die von mir benötigte Datei (welche sich immer im gleichen Ordner/Unterordner in der zip Datei befindet) zu entpacken? Vielen Dank für Eure Bemühungen. Viele Grüße Werner

Hallo Werner,

das ist sicher möglich. Vielleicht hilft Dir dieses Makro hier schon weiter und ggf. noch was zum Lesen.

https://www.clever-excel-forum.de/Thread-Ein-Auszippen-Loeschen-und-Auflisten-ohne-Zip-Programm

Ob auch Unterordner möglich sind, habe ich noch nicht getestet. Kann man/ich vielleicht noch nachholen, wenn ich wieder Zeit habe.
Evtl. gibt es auch noch eine Direktvariante. Weiß ich gerade nicht.

Code:


Private Declare PtrSafe Function SHCreateDirectoryExW Lib "Shell32.dll" ( _
        ByVal hWnd As LongPtr, ByVal pszPath As LongPtr, _
        ByVal psa As LongPtr) As Long


Sub Zip_Extract(ByVal vZipDatei As Variant, ByVal sZielPfad As String, _
                ByVal sDatei As String)
' Eine Dateien aus einer vZipDatei nach sZielPfad extrahieren
  Dim oItem As Object
  
  If Dir$(vZipDatei) <> "" Then                     ' Ist Zip-Datei vorhanden?
     SHCreateDirectoryExW 0&, StrPtr(sZielPfad), 0& ' Ggf. Zielordner erstellen
     With CreateObject("Shell.Application")
         For Each oItem In .Namespace(vZipDatei).Items
             If oItem.Name Like sDatei Then
                .Namespace((sZielPfad)).CopyHere oItem
             End If
         Next oItem
     End With
  End If
End Sub

Sub Test()
  Zip_Extract "D:\MyZip.zip", "D:\ZipTest", "Kreuzchen.xlsm"
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Moin, :-)

... Art ganz gut: ;-)

Shell """F:\7-ZipPortable\App\7-Zip64\7z.exe"" e -r  C:\Temp\herb.zip -oF:\test Export_aus_SQL.xlsx"

F:\7-ZipPortable\App\7-Zip64\7z.exe
Das ist der Pfad zu 7z.exe. Ist die Portable Version, also keine Installation erforderlich.

e -r C:\Temp\herb.zip
Der Parameter e steht für "Extract". Der Parameter -r ist WICHTIG. Der geht rekursiv durch die Verzeichnisse in der Zip-Datei.
Pfad- und Dateiname der Zip-Datei dürfte klar sein.

-oF:\test Export_aus_SQL.xlsx
Der Parameter -o bedeutet "Set Output Directory". Dann kommt der Pfad, wo die Datei abgelegt wird. Leerzeichen und der Dateiname der Exceldatei.
Nach -o KEIN Leerzeichen.

Hier die Liste der Parameter:
https://documentation.help/7-Zip/syntax.htm

Der Parameter -aoa ist noch sinnvoll, wenn die Datei(en) schon/noch vorhanden sind. Werden dann ungefragt überschrieben.

Ich habe es eben noch getestet (Windows 11 mit 64 Bit) mit vielen Unterordnern in der Zip-Datei. Klappt. ;-)

Habe auch einiges mit "Shell und Namespace" rumprobiert. War mir aber bei Unterordnern zu aufwändig.

Du brauchst nur die Datei "7z.exe" aus dem Unterordner "\App\" und dann halt die richtige Version..

Zur Geschwindigkeit kann ich nichts sagen. ;-)

Servus
Case

mit excel makro bestimmte datei in zip datei entpacken

Forumthread: mit excel makro bestimmte datei in zip datei entpacken

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

mit excel makro bestimmte datei in zip datei entpacken

Forumthread: mit excel makro bestimmte datei in zip datei entpacken

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread