Zip-Datei erzeugen
11.06.2002 08:46:19
Holger Meinert
Ich habe folgendes Makro,das mir die aktive Arbeitsmappe als
zip-Datei speichert.
Wie kann ich es realisieren,wenn ich mehrere Arbeitsmappen(z.B. 35 csv-Dateien und xls-Dateien)als eine Zip-Datei speichern möchte (alle Mappen sind offen).Der Name der Zip-Datei soll aus der Zelle A1 entnommen werden.
Vielen Dank für die Hilfe!!
Sub MappeSchliessen()
Dim xlsName$, zipName$, Zip$
ActiveWorkbook.Save
xlsName = ActiveWorkbook.FullName
zipName = Left(xlsName, Len(xlsName) - 4) & ".zip"
Zip = "c:\programme\winzip\winzip32.exe -a "
Shell Zip & zipName & " " & xlsName
ActiveWorkbook.Close
End Sub
Anzeige