Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.05.2024 16:26:07
Excel Tabelle auswerten - Problem mit dynamischer Spalte
13.05.2024 15:54:42
Userform per doubleclick event öffnen
13.05.2024 15:15:47
Tagespreis ermitteln aus einer Datumsliste
13.05.2024 15:12:00
Pivot Tabelle Min/Max mit Datum und zugehöriger Uhrzeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zip-Datei mit 7-zip entpacken

VBA Zip-Datei mit 7-zip entpacken
28.01.2021 10:12:22
Peter
Liebe Fan-Gemeine,
ich möchte gern per Makro und 7zip eine Datei in einem anderen Ordner entpacken, klappt nicht. Per Batch ist das kein Problem.
Zu diesem Thema sind schon viele Beiträge erschienen. Aber ich bitte Euch, mal die Datei anzuschauen. Nähere Erklärungen dann vom Programm "Test" selbst.
Vielen Dank und Gruß aus dem Norden
Peter
https://www.herber.de/bbs/user/143367.zip

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zip-Datei mit 7-zip entpacken
28.01.2021 10:50:55
peterk
Hallo

Sub UnZIP_Lieferschein()
With ThisWorkbook
Pfad = .Path & "\"
End With
Jahr = Year(Range("B2").Value)
O_Ordner = Pfad & "Backup\Lieferschein " & Jahr & "\"  ' hier fehlte der \
Z_Datei = Pfad & "HLG Lieferschein " & Jahr & ".zip"   ' Du hattest HLG-Lieferschein
Shell "7z x -y  """ & Z_Datei & """ -o""" & O_Ordner & """" ' kein Leerzeichen nach -o
End Sub
Peter
AW: Shell: NameSpace
28.01.2021 10:55:47
Fennek
Hallo,
hier ein Beispiel wie der Zip-Container einer Excel-Datei ausgelesen werden kann:

Pt_Fl = Application.GetOpenFilename()
Fl = Dir(Pt_Fl)
Pt = Replace(Pt_Fl, Fl, "")
With CreateObject("shell.application").Namespace(Pt)
For i = 0 To 300 ' "" Then Debug.Print i, .getDetailsOf(Fl, i), Tx
Next i
End With
Ob heutige AV-Programme das noch durchlassen, mußt du testen.
Eine Web-Suchen nach "Excel zip" sollte zu dem Holländer "DeBroi" oder so ähnlich führen.
mfg
Anzeige
AW: Shell: NameSpace
01.02.2021 17:02:50
Peter
Hallo Fennek,
leider hat es mit den Erklärungen nicht/nicht geklappt. Die Seite von "DeBroi" hatte ich auch schon gefunden, aber die Makros sind mir etwas zu groß.
Ich habe mich dann für die Batch-Version entschieden.
Hier mal das aufrufende Makro:

With ThisWorkbook
Pfad = .Path & "\"
End With
ChDrive Left(Pfad, 3)
ChDir Pfad
Call Shell(Pfad & "Backup\UnZIP-Lieferschein.bat", 1)
Und hier mal dir Batch-Datei:

@echo off
set Jahr=%date:~6,4%
set Z_Datei="HLG-Lieferschein %Jahr%.zip"
set O_Ordner="Backup\HLG-Lieferschein %Jahr%"
7z x -y %Z_Datei% -o%O_Ordner%
set Z_Datei="..\HLG-Lieferschein %Jahr%.zip"
set O_Ordner="HLG-Lieferschein %Jahr%"
7z x -y %Z_Datei% -o%O_Ordner%
Die Batch-Datei befindet sich im Ordner Backup und kann vom Programm sowie auch von Hand gestartet werden.
Das funktioniert, solange mir keiner die Batch löscht. Aber ich habe alles gesichert ;-)
Vielen Dank für Deine Hilfe!
Gruß aus dem hohen Norden
Peter
Anzeige

7 Forumthreads zu ähnlichen Themen

Filzip Datei mit Passwort entpacken über VBA
Paulo

Hallo Liebe Freunde,
Ich Benutze diesen Code von "rondebruin" um eine Zip Datei (mit Passwort) zu entpacken. Trotz vorgabe des Passwortes fragt es mich immer wieder danach.
Ist es nicht möglich diese Passwort abfrage von FilZip zu unterbinden oder nicht anzeigen zu lassen?
Declar...
29.09.2011 12:47:12
Thread-ID: 1231953
3 Beiträge
Anzeige
Zip Datei per Makro mit XP-Bordmitteln entpacken?
Daniel

Hallo zusammen,
ich habe schon wieder ein Problem bei dem ich nicht weiterkomme. Ich muss regelmäßßig Daten aus Dateien einlesen, die automatisch in einem bestimmten Ordner abgelegt werden. Diese xls-Dateien sind jedoch gezipt und müssen bisher immer manuell entpackt werden damit das automa...
31.08.2006 10:27:09
Thread-ID: 797404
4 Beiträge
JÜNGSTE ZIP-Datei automatisch entpacken
Daniel

Hallo nochmal und erst einmal herzlichen Dank an Bernd für die erste Hilfe!
Mittlerweile klappt das Entpacken per application.getopenfilename aber es hat sich herausgestellt, dass das unpraktikabel ist, da täglich mehrere Zip-Dateien einlaufen, wovon immer die aktuellste entpackt werden sol...
08.09.2006 15:12:46
Thread-ID: 800051
3 Beiträge
Anzeige
per VBA mit 7-zip entpacken
Ollib

Hallo liebe Forumsgemeinde,
ich suche nach einer Möglichkeit in Excel per VBA eine gezippte Datei (zip oder 7z) mit dem Freewareprogramm 7-zip in einen vorgegebenen Ordner zu entpacken.
Leider geht kein anderes Packprogramm, da es das einzige ist, was wir derzeit in der Firma nutzen dü...
09.12.2007 20:25:55
Thread-ID: 933427
9 Beiträge
Ordner mit Dateien zippen mit 7Zip
Andy
Hallo alle zusammen,

ich habe eine Frage hinsichtlich des zippens von Ordnern mit dem Programm 7Zip.

Besteht die Möglichkeit, dass man einen vorgegebenen Ordner mit seinem Inhalt in eine ZIP-Datei packt
und die ZIP Datei im Anschluss mit einem Passwort sichert? Habe mich schon...
03.10.2023 07:50:51
Thread-ID: 1948217
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
10
3
2
1
8
5