Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Datei entpacken

Forumthread: Excel Datei entpacken

Excel Datei entpacken
09.11.2017 09:26:48
Matthias
Hallo liebe Forum Mitglieder,
man kann ja mit einem Zip Program (z.B. 7-zip) eine Excel Datei entpacken und dann auf diverse Elemente der entpackten Datei zugreifen. Z.B gibt es dann den Ordner xl\worksheets\_rels wo die einzelnen Worksheets aus der Mappe aufgelistet werden. Diese kann man dann z.B. mit dem Notepad bearbeiten, speichern und mit 7-zip wieder zu einer Excel Datei packen.
Kennt jemand eine Möglichkeit, diesen Prozess des entpackens, ändern und wieder verpacken mit VBA zu automatisieren?
Sicherlich bekommt man die Informationen aus der entpackten Datei auch direkt aus der normalen Excel, aber ich würde gerne an die Informationen die ich brauche ran, ohne die Excel Datei auf normalen wege zu öfnnen, da das bei großen Excel Dateien sehr lange dauert.
Vielen Dank schonmal für eure Ideen. Ich bin gespannt wie und ob sich das lösen lässt.
Grüße
Matthias
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Datei entpacken
09.11.2017 09:34:27
mumpel
Hallo!
Möglich ist das schon. Halte ich aber für gefährlich. Die Gefahr dass man Daten verliert ist nicht gering.
Welche Informationen benötigst Du? Vielleicht sind es Informationen an die man auch ohne Entpacken kommt.
Gruß, René
AW: Excel Datei entpacken
09.11.2017 09:47:05
Matthias
Hallo Renè,
danke für deine schnelle Antwort. Ich möchte auslesen mit welchen anderen Mappen die Mappe verknüpft ist. Das finde ich über den beschriebenen Weg im Ordner \xl\externalLinks\_rels (falls eine Verknüpfung in der Mappe vorhanden ist). Im ersten Schritt möchte ich eigentlich erstmal nix ändern in der Datei, sondern nur die Verknüpfungen auslesen.
Ich weiß dass das auch einfach in VBA über ActiveWorkbook.LinkSources(xlExcelLinks) geht, dazu muss die Datei aber offen sein und das möchte ich nicht. Da das Öffnen der Mappen lange dauert (teilweise über 10 Sekunden für eine Mappe) und ich bei einem Rekursiven aufruf der Funktion ganz schnell ganz viele Offene Dateien habe und der Arbeitsspeicher überläuft.
Grüße
Matthias
Anzeige
AW: Excel Datei entpacken
09.11.2017 10:43:40
Luschi
Hallo Matthias
hier findest Du jede Menge Vorschläge dazu:
https://www.rondebruin.nl/win/section7.htm
Gruß von Luschi
aus klein-Paris
AW: Excel Datei entpacken
09.11.2017 11:05:10
Matthias
Hallo Luschi,
vielen Dank! Das schau ich mir mal an. Die Seite hat mir meine Suchmaschine garnicht angeboten ;)
Grüße
Matthias
AW: Excel Datei entpacken
09.11.2017 11:26:36
Matthias
Hat geklappt. Zwar leider "nur mit 7-zip" und nicht mit den "default Windows zip program". Aber das ist genau das was ich gesucht habe. Danke!
Anzeige
;

Forumthreads zu verwandten Themen

Excel Datei schützen - WinZip kaum Effekt
Timo

Hallo,
ich habe eine relativ große Excel Datei hinsichtlich seiner Struktur geschützt (Tools - Protect Workbook - Häckchen bei Structure) (habe nur ein englisches Excel, aber ich glaube, Ihr wisst, was ich meine).
Jetzt wollte ich die Datei zippen und der Effekt ist minimal. Vorher kon...
21.04.2010 13:01:55
Thread-ID: 1153041
2 Beiträge
Anzeige
Unzip einer übergebenen Datei
Traptor8180

Hallo,
ich habe eine Sub geschrieben, die einen Mail Anhang abspeichert. Wenn es sich nicht um eine ZIP Datei _ handelt, wird direkt abgespeichert: ' Diese Methode speichert das Attachment der übergebenen E-Mail Sub saveAttachtoDisk(itm As Object, filename As String, path As String) Dim...
12.11.2018 19:57:14
Thread-ID: 1657041
2 Beiträge
Unzip einer übergebenen Datei
Traptor8180

Hallo,
ich habe eine Sub geschrieben, die einen Mail Anhang abspeichert. Wenn es sich nicht um eine ZIP Datei _ handelt, wird direkt abgespeichert: ' Diese Methode speichert das Attachment der übergebenen E-Mail Sub saveAttachtoDisk(itm As Object, filename As String, path As String) Dim...
13.11.2018 06:52:11
Thread-ID: 1657075
2 Beiträge
EXCEL-Datei packen / WinZip
Erich

Hallo EXCEL-Freunde,
ich habe zwei Dateien, die ich mit dem TotalCommander packe - die Ergebnisse
verstehe ich aber nicht:
1. Datei mit 993KB; nach packen: 743KB; diese Datei ist mit einem Kennwort
für die Datei und mit einem Kennwort für das VBA-Projekt geschützt.
2. Datei: 3....
05.09.2004 08:52:19
Thread-ID: 480431
3 Beiträge
Datei per VBA in ZIP umwandeln
CPFT

Hallo zusammen!
Gibt es eine Möglichkeit, eine Excel-Datei vor dem E-Mail-Versand automatisch in eine ZIP-Datei umzuwandeln?
Dank im Voraus für die Hilfe.
19.09.2005 11:30:12
Thread-ID: 669202
4 Beiträge
Dateien in Verzeichnis nach Alter Zippen
lotharp

Guten morgen,
ich versuche mir ein Programm zu schreiben das mir mein Verzeichnis auf dem Server durchsucht und alle Dateien die älter als 1 Jahr sind in eine zip Datei ins Verzeichnis packt. (Im Beispiel in das PRU Verzeichnis also alle Dateien in eine Pru.zip)
Das Programm was ich bis...
31.08.2007 09:58:36
Thread-ID: 902426
3 Beiträge
Alle Dateien in einem Verzeichnis als Zip-Datei
Kasimir
Hallo an alle!
Ich habe ein Problem mit einem Code, den ich im Netz gefunden habe. Mit nachfolgendem Code werden alle Dateien in einem Verzeichnis als Zip-Datei mit dem Standard-Zippprogramm von WindowsXP verpackt.
Option Explicit
Sub NewZip(sPath) If Len(Dir(sPath)) > 0 Then Kill sPa...
06.09.2007 19:05:50
Thread-ID: 904444
7 Beiträge
Datei öffnen in Zip Ordner abgelegt
Marco

Hallo zusammen
Ich stehe gerade vor einem Problem. Ich möchte per VBA Makro eine Datei öffnen die in dem einem Ordner mit Zip Endung abgelegt ist.
der Datei Pfad ist wie folgt.
Workbooks.Open "\\CHZHSDAP10.xxx.com\LogoMate\Backup\Data\20210427\Daten.zip\bw_abg.csv", Local:=True
27.04.2021 15:17:52
Thread-ID: 1828234
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Excel Datei entpacken und automatisieren mit VBA

Schritt-für-Schritt-Anleitung

  1. Installiere 7-Zip: Falls Du 7-Zip noch nicht installiert hast, lade es von der offiziellen Website herunter und installiere es.

  2. VBA-Referenz hinzufügen: Öffne Excel, gehe zu Entwicklertools > Visual Basic. Wähle Extras > Verweise und füge die 7-Zip VBA-Bibliothek hinzu, falls verfügbar.

  3. Entpacken der Excel-Datei: Verwende den folgenden VBA-Code, um eine Excel-Datei zu entpacken:

    Sub Entpacken()
   Dim shell As Object
   Set shell = CreateObject("Shell.Application")

   Dim zipDatei As String
   Dim zielOrdner As String

   zipDatei = "C:\Pfad\zur\deiner\datei.zip"
   zielOrdner = "C:\Pfad\zum\entpacken\"

   shell.Namespace(zielOrdner).CopyHere shell.Namespace(zipDatei).Items
End Sub

  4. Daten extrahieren: Nachdem die Dateien entpackt sind, kannst Du mit VBA auf die entpackten Dateien zugreifen. Beispiel:

    Sub DatenAuslesen()
   Dim dateiPfad As String
   dateiPfad = "C:\Pfad\zum\entpacken\xl\worksheets\deinBlatt.xml"

   ' Hier kannst Du den XML-Inhalt mit VBA lesen
End Sub

  5. Datei wieder packen: Verwende den 7-Zip-Befehl, um die Datei wieder zu verpacken. Dies kann über die Eingabeaufforderung oder ebenfalls via VBA erfolgen.

Häufige Fehler und Lösungen

  • 7zip kann nicht als Archiv geöffnet werden: Stelle sicher, dass die Datei nicht beschädigt ist. Du kannst versuchen, die Datei mit einem anderen Entpacker zu öffnen.

  • Excel Datei speichern dauert sehr lange: Wenn das Speichern lange dauert, kann es an der Größe der Datei oder an Verknüpfungen zu anderen Mappen liegen. Überprüfe die Verknüpfungen und reduziere die Dateigröße, falls nötig.

  • Bin Datei entpacken: Wenn Du eine BIN-Datei hast, stelle sicher, dass Du ein passendes Entpackungsprogramm verwendest, da nicht alle Programme mit BIN-Dateien umgehen können.

Alternative Methoden

  1. WinZip: Du kannst auch WinZip verwenden, um ZIP-Dateien zu entpacken. Es ist jedoch empfehlenswert, 7-Zip zu verwenden, da es kostenlos und leistungsstark ist.

  2. Windows integrierte Funktion: Windows bietet die Möglichkeit, ZIP-Dateien ohne zusätzliche Software zu entpacken. Klicke mit der rechten Maustaste auf die ZIP-Datei und wähle Alle extrahieren.

Praktische Beispiele

  • Verknüpfungen auslesen: Um die Verknüpfungen einer Excel-Datei zu extrahieren, kannst Du den entpackten Ordner xl\externalLinks\_rels aufrufen und die XML-Dateien durchlesen.

  • Automatisierung mit VBA: Durch die Automatisierung des Entpackens und Auslesens der Daten kannst Du Zeit sparen, besonders bei großen Excel-Dateien, die standardmäßig lange zum Öffnen benötigen.

Tipps für Profis

  • Nutze die Command-Line von 7-Zip: Du kannst 7-Zip im Hintergrund über die Eingabeaufforderung steuern, um ZIP-Dateien zu entpacken oder zu packen.

  • Automatisierung erweitern: Du kannst den VBA-Code so erweitern, dass er automatisch alle benötigten Dateien entpackt und verarbeitet.

  • Backup vor Änderungen: Bevor Du an den entpackten Dateien Änderungen vornimmst, erstelle immer ein Backup der Originaldatei.

FAQ: Häufige Fragen

1. Wie kann ich eine 7z Datei öffnen ohne WinZip?
Du kannst 7-Zip verwenden, um 7z-Dateien zu öffnen. Es ist eine kostenlose Software, die eine Vielzahl von Archivformaten unterstützt.

2. Sind ZIP-Dateien gefährlich?
Ja, ZIP-Dateien können potenziell gefährliche Inhalte enthalten. Achte darauf, nur ZIP-Dateien von vertrauenswürdigen Quellen zu entpacken.

3. Wie kann ich eine Datei in ZIP verpacken?
Nutze die Rechtsklick-Option auf die Datei oder den Ordner und wähle Senden an > ZIP-komprimierter Ordner. Alternativ kannst Du auch 7-Zip nutzen.

4. Wie kann ich eine BIN-Datei entpacken?
Um BIN-Dateien zu entpacken, benötigst Du ein spezifisches Entpackungsprogramm, das mit diesem Format umgehen kann, wie z.B. 7-Zip.

Beliebteste Forumthreads (12 Monate)

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