Datei aus VBA zippen
29.01.2008 09:26:00
jenP
ich möchte eine xls-Datei aus Excel heraus per vba zippen.
Leider funktioniert dieser Ausdruck nicht, da ich auf meinem Rechner dieses WinZip so nicht habe:
Do While sDatei ""
zipName = Left(sDatei, Len(sDatei) - 4) & ".zip"
Shell "c:\programme\winzip\winzip32.exe -min -a " & sPfad & zipName & " " & sDatei
sDatei = Dir
Loop
Hier im Büro funktioniert das Zippen bisher nur manuell im Explorer mit Rechtsklick - Senden an - ZIP-komprimierten Ordner.
Nach Rücksprache mit dem IT-Callcenter ist auf unseren Rechnern die WinZip.exe nicht vorhanden sondern nur eine Treiberdatei zipfldr.dll
Ist es auch so irgendwie möglich, eine Zip-Datei per VBA zu erstellen?
Danke im Voraus!
jensP