Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

XLS-Dateien zippen

XLS-Dateien zippen
Bernd
Hallo liebe Excellisten,
ich muß monatlich ca. 70 Exceltabellen versenden, die vorher per automatisch erstellt werden. Da die Tabellen tlw. sehr groß sind möchte ich per VBA diese automatisch Zippen und zwar ab 2,5 MB.
Was mir schon weiterhilft wäre der Aufruf mit Paramter für das WinZip-Programm per VBA.
Weiß jemand Rat ?
Gruß
Bernd

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

Betreff
Benutzer
Anzeige
AW: XLS-Dateien zippen
y
hi Bernd,
Zip Datei erzeugen
von Hans W.Herber:

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

cu Micha
AW: XLS-Dateien zippen; Suuuper!!! o.T.
Bernd
...
danke für die rückmeldung :-) o.t.
y
...

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige