Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA mit 7-zip entpacken

Forumthread: per VBA mit 7-zip entpacken

per VBA mit 7-zip entpacken
09.12.2007 20:25:55
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ürfen.
Habe hier einen Code für Winzip gefunden und entsprechend angepasst, aber da tut sich nix...es öffnet sich lediglich das Proggi 7-ZIP und das war´s. Kann mir wer helfen?
Gruß
Olli

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per VBA mit 7-zip entpacken
09.12.2007 23:16:16
anton
Hallo Olli,
probier's mal damit:

Sub entpacken_mit_7z()
  strProgramm = "C:\Programme\Packprogramme\7-ZipPortable\App\7-Zip\7z.exe" 'anpassen
  strArchiv = "C:\Downloads\game\TeamSpeak.zip"  'anpassen
  strOrdner = "E:\tmp"  'anpassen
  Set fso = CreateObject("Scripting.FileSystemObject")  
  strProgramm = fso.GetFile(strProgramm).ShortPath
  strArchiv = fso.GetFile(strArchiv).ShortPath
  strOrdner = fso.GetFolder(strOrdner).ShortPath  
  Shell strProgramm & " x " & strArchiv & " -o" & strOrdner, vbNormalFocus
End Sub  

mfg Anton

Anzeige
AW: per VBA mit 7-zip entpacken
10.12.2007 16:43:56
ollib
Hallo Anton,
perfekt..das ist es ;O) Bringt mich schon mal richtig weiter....Hast Du vielleicht noch ne Idee, wie man in dem Zusammenhang ein PW unterbekommen kann, also entzippen einer PW - geschützten ZIP?
Gruß
Olli

AW: per VBA mit 7-zip entpacken
10.12.2007 17:52:00
anton
Hallo Olli.
dann so:
Shell strProgramm & " x " & strArchiv & " -o" & strOrdner & " -pdeinpasswort", vbNormalFocus
mfg Anton

Anzeige
AW: per VBA mit 7-zip entpacken
10.12.2007 17:56:12
Ollib
Perfekt...der Tag ist gerettet. Vielen vielen Dank ;O)
Gruß
Olli

AW: per VBA mit 7-zip entpacken
10.12.2007 22:47:00
Ollib
Hallo Anton,
nachdem mein Makro nun so prima läuft taucht auf einmal ein anderes Problem auf. Nach dem Code hinsichtlich des Entpackens taucht seitens 7-zip ein DOS-Fenster auf, wo es den Vorgang des Entpackens anzeigt...soweit so gut...hat den Nachteil, dass die nachfolgenden Codes des Makros aber nicht weiter ausgführt werden, da Excel nicht meh aktiv. Eine Idee, wie ich das Problem lösen kann?
Gruß
Olli

Anzeige
AW: per VBA mit 7-zip entpacken
11.12.2007 16:43:00
anton
Hallo Olli,
versuch's mal damit:

Sub entpacken_mit_7z()
  strProgramm = "C:\Programme\Packprogramme\7-ZipPortable\App\7-Zip\7z.exe" 'anpassen
  strArchiv = "C:\Downloads\game\TeamSpeak.zip"   'anpassen
  strOrdner = "E:\tmp"   'anpassen
  Set fso = CreateObject("Scripting.FileSystemObject")  
  strProgramm = fso.GetFile(strProgramm).ShortPath
  strArchiv = fso.GetFile(strArchiv).ShortPath
  strOrdner = fso.GetFolder(strOrdner).ShortPath  
  Set WshShell = CreateObject("WScript.Shell")  
  WshShell.Run strProgramm & " x " & strArchiv & " -o" & strOrdner & " -pdeinpasswort", 1, True  
End Sub  

mfg Anton

Anzeige
AW: per VBA mit 7-zip entpacken
12.12.2007 20:15:00
OlliB
Hallo Anton,
nee....auch nicht....seltsamerweise führt er manchmal das Makro bis zum Schluss aus...aber meistens nicht ..dann geht´s bis zum Entpacken und Schicht...sehr mysteriös....
Noch eine Idee? Doevents hat´s auch nicht gebracht....
Gruß
Olli

AW: per VBA mit 7-zip entpacken
12.12.2007 20:49:20
OlliB
Kommando zurück...Ursache gefunden...es lag an der Dauer des Entpackens...hab eine Sleep-Funktion während des Entpackens eingebaut und nun funzt alles...
Also Anton...vielen Dank noch einmal ;O)
Gruß
Olli
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Mit VBA und 7-Zip Dateien entpacken

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und aktiviere den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub entpacken_mit_7z()
   Dim strProgramm As String
   Dim strArchiv As String
   Dim strOrdner As String
   Dim fso As Object

   strProgramm = "C:\Programme\Packprogramme\7-ZipPortable\App\7-Zip\7z.exe" ' anpassen
   strArchiv = "C:\Downloads\game\TeamSpeak.zip" ' anpassen
   strOrdner = "E:\tmp" ' anpassen

   Set fso = CreateObject("Scripting.FileSystemObject")
   strProgramm = fso.GetFile(strProgramm).ShortPath
   strArchiv = fso.GetFile(strArchiv).ShortPath
   strOrdner = fso.GetFolder(strOrdner).ShortPath

   Shell strProgramm & " x " & strArchiv & " -o" & strOrdner, vbNormalFocus
End Sub

  4. Passe die Pfade an:

    • Ändere die Pfade für strProgramm, strArchiv und strOrdner, um sie an dein System anzupassen.

  5. Führe das Makro aus:

    • Gehe zurück zu Excel, drücke ALT + F8, wähle entpacken_mit_7z und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: 7-Zip öffnet sich, aber die Datei wird nicht entpackt:

    • Stelle sicher, dass der Pfad zu 7z.exe korrekt ist. Überprüfe auch, ob die Datei existiert.

  • Fehler: Excel reagiert nicht während des Entpackens:

    • Füge eine Sleep-Funktion ein, um Excel Zeit zum Arbeiten zu geben. Beispiel: 
      Application.Wait (Now + TimeValue("0:00:02")) ' 2 Sekunden warten

Alternative Methoden

  • Verwendung von Windows Shell: Anstelle von Shell kannst du auch WScript.Shell verwenden, um die Ausführung im Hintergrund zu ermöglichen:

    Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run strProgramm & " x " & strArchiv & " -o" & strOrdner, 1, True

  • Verwendung von anderen Packprogrammen: Falls du 7-Zip nicht verwenden möchtest, gibt es auch andere kostenlose Zip-Programme, die du in VBA integrieren kannst, wie WinRAR oder PeaZip.

Praktische Beispiele

  • Entpacken einer passwortgeschützten ZIP-Datei: Um eine passwortgeschützte Datei zu entpacken, kannst du das Passwort im Shell-Befehl hinzufügen:

    Shell strProgramm & " x " & strArchiv & " -o" & strOrdner & " -pdeinpasswort", vbNormalFocus

  • Entpacken von 7z-Dateien: Der Code kann auch für .7z-Dateien verwendet werden, indem du einfach den Dateipfad anpasst:

    strArchiv = "C:\Downloads\game\TeamSpeak.7z" ' anpassen

Tipps für Profis

  • Verwendung von Variablen für Pfade: Speichere häufig verwendete Pfade in Variablen, um den Code sauberer zu halten und Anpassungen zu erleichtern.

  • Fehlerbehandlung einfügen: Implementiere eine Fehlerbehandlung, um spezifische Fehler zu erkennen und zu handeln:

    On Error GoTo Fehlerbehandlung
...
Exit Sub
Fehlerbehandlung:
  MsgBox "Ein Fehler ist aufgetreten: " & Err.Description

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass 7-Zip installiert ist?
Überprüfe den Installationsordner auf 7z.exe. Alternativ kannst du 7-Zip von der offiziellen Webseite herunterladen.

2. Funktioniert dieser Code auch mit 7z-Dateien?
Ja, der Code funktioniert auch mit .7z-Dateien. Achte darauf, den Dateipfad entsprechend anzupassen.

3. Kann ich mehrere Dateien gleichzeitig entpacken?
Ja, du kannst eine Schleife einfügen, um mehrere Archive nacheinander zu entpacken.

4. Gibt es eine portable Version von 7-Zip?
Ja, du kannst 7-Zip portable herunterladen, was dir ermöglicht, das Programm ohne Installation zu verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige