Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

XLS-Dateien zippen

Forumthread: 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
Anzeige

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
Anzeige
AW: XLS-Dateien zippen; Suuuper!!! o.T.
Bernd
...
danke für die rückmeldung :-) o.t.
y
...
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige