Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
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
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zippen mit vollständiger Pfadangabe {JH}

Forumthread: Zippen mit vollständiger Pfadangabe {JH}

Zippen mit vollständiger Pfadangabe {JH}
03.04.2013 20:01:34
Joachim
Hallo,
trotzt intensiven Nutzung von Google habe habe ich keine Lösung für folgendes Problem gefunden:
  • klick ich im Explorer mit links auf ein Verzeichnis und zippe das dann, so werden die Dateien mit vollständiger Pfadangabe gezippt

  • wie kann ich diese mit VBA erreichen, möglichst mit der windows-eigenen dll?

  • alle Lösungen die ich bisher gefunden habe speichern die Dateien nur ohne Pfadangabe

    • Jochen

    Anzeige

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Zippen mit vollständiger Pfadangabe {JH}
    03.04.2013 20:11:38
    Hajo_Zi
    Hallo Jochen,
    icch habe mal in mein Archiv geschaut.
    Zip Datei erzeugen 
    Sub MappeSchliessen()
Dim xlsName$, zipName$, Zip$
ActiveWorkbook.Save
xlsName = ActiveWorkbook.FullName
ActiveWorkbook.Close
zipName = Left(xlsName, Len(xlsName) - 4) & ".zip"
Zip = "c:\programme\winzip\winzip32.exe -a "
Shell Zip & zipName & " " & xlsName
End Sub

    von Hans W.Herber:
    ab XP https://www.herber.de/bbs/user/65483.htm
    Michael H
    https://www.herber.de/forum/archiv/1112to1116/t1113472.htm

    Anzeige
    AW: Zippen mit vollständiger Pfadangabe {JH}
    03.04.2013 22:25:40
    mumpel
    Hallo!
    Versuch es mal mit DotNetZip. Dazu mal zwei Makros. Das erste Makro erstellt das ZIP-Archiv, mit dem zweiten wird das erste Makro aufgerufen. Etwas angepasst kann man auch ganze Ordner oder mehrere Dateien in ein Archiv packen. Nähere Hilfe gibt es auf der Seite von DotNetZip (auf Englisch), Beispielcode wird mit installiert.
    Erstellt das ZIP-Archiv:
    Übergibt das zu kompromierende Objekt:
    Gruß, René

    Anzeige
    Nachtrag
    03.04.2013 22:35:03
    mumpel
    Vorteil bei DotNetZip ist, dass die Datei nicht geschlossen werden muss, sie kann also auc geöffnet bleiben und so als Archiv gepackt werden. Änderungen sollte man vorher speichern, das habe ich im Beispielmakro nicht eingebaut.

    AW: Zippen mit vollständiger Pfadangabe {JH}
    04.04.2013 18:21:00
    Joachim
    Danke Hajo_Zi,
    danke Mmumple,
    für eure Hilfe! Es gibt leider noch eine nicht unerhebliche Randbedingung, das Makro soll/muss auf mehreren Firmen-Rechnern funktionieren, für die keine Admin-Rechte vorhanden sind.
    GrußJochen

    Anzeige
    AW: Zippen mit vollständiger Pfadangabe {JH}
    04.04.2013 18:26:40
    mumpel
    Dann solltest Du mit euren Administrator sprechen. Sonst wird es nichts mit Deinen Wünschen.
    ;

    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