Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zip Datei per Makro mit XP-Bordmitteln entpacken?

Zip Datei per Makro mit XP-Bordmitteln entpacken?
31.08.2006 10:27:09
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 automatische Auslesen starten kann. Ich habe schon viel zu den Möglichkeiten gelesen, das Entpacken per Makro mit WinZip zu gestalten. Ist es aber auch möglich den Extrahier-Assistent von Windows zu benutzen? Dazu konnte ich nichts finden. Und wenn ja, könnt ihr mir bitte die nötigen Befehle sagen? Vielen Dank
Daniel

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

Betreff
Datum
Anwender
Anzeige
AW: Zip Datei per Makro mit XP-Bordmitteln entpack
31.08.2006 11:20:13
bst
Hallo Daniel,
versuch's mal hiermit: http://www.rondebruin.nl/windowsxpzip.htm
Wenn das nicht funkt - ich hab's noch nicht probiert - lies auch mal dieses:
http://www.office-loesung.de/ftopic97673_0_0_asc.php
Die Variante mit den INFO-ZIP-DLL's von http://www.vbaccelerator.com/home/VB/Code/Libraries/Compression/ funktioniert bei mir, ist M.E. allerdings ziemlich 'kompliziert'.
cu, Bernd
Anzeige
vielen Dank
31.08.2006 11:30:03
Daniel
Mann, ich liebe das Forum. Wie schnell das hier immer geht. Wunderbar!
Kannst Du mir eventuell noch sagen, wie ich den Ordner auf sagen wir mal c:\excel ändere und die Datei nicht in einen extra Order "Myunzipfolder 19.06.2002" ablegt. Ich will sie da entpackt haben wo sie liegt. Nur meckert er, sobald ich da was verändere und da MkDir wegnehme etc.
Würde mich freuen, eilt aber nicht. Du hast mir schon sehr viel weiter geholfen. Das entpacken funktiert erstmal.
Danke
Daniel
AW: vielen Dank
31.08.2006 13:04:03
bst
Hallo Daniel,
versuch's mal so.
cu, Bernd
--
Option Explicit

Const strFolder = "E:\test\yy" ' dorthin geht's

Sub UnzipInXP()
    Dim objFso As Object, objApp As Object, varFileName As Variant
    
    varFileName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False)
    If varFileName = False Then Exit Sub
    
    If Dir(strFolder & "\.", vbDirectory) = "" Then MkDir strFolder
    
    Set objApp = CreateObject("Shell.Application")
    'Copy the files in the newly created folder
    objApp.Namespace(strFolder).CopyHere objApp.Namespace(CStr(varFileName)).Items
    
    MsgBox "You find the files here: " & strFolder
    On Error Resume Next
    Set objFso = CreateObject("scripting.filesystemobject")
    objFso.deletefolder Environ("Temp") & "\Temporary Directory*", True
    
    Set objApp = Nothing
    Set objFso = Nothing
End Sub



Anzeige

6 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
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
Alle ZIP-Dateien eines Ordner entpacken ?
Selma

Hallo Leute,
ich habe eine Frage. Wie kann ich per VBA mit XP-Bordmitteln alle ZIP-Dateien eines Ordners entpacken?
Alle ZIP-Dateien sollen ohne Erstellung der Ordner einfach entpackt werden.
Doppelte Dateien dürfen beim Entpacken überschrieben werden.
Ich habe diesen Link gef...
20.07.2007 21:04:00
Thread-ID: 889268
2 Beiträge
Anzeige
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
2
1
8
5