mittels Shell-Funktion Datei ver-/entpacken
25.07.2003 15:21:18
stinkender_kranich2
habe folgendes Makro, was aber leider noch nicht ganz funktioniert:
Das Problem tritt erst am Ende bei der Shell-Anweisung auf. Diesen Code (abgeschrieben) verstehe ich sowieso nicht. Wer erklärt mir, wie es besser geht ???
Sub Datei_Verpacken()
Dim sXLPath As String, sZIPPath As String
Dim sWINZIPPath As String
Worksheets("versteckt").Select
sXLPath = Range("c24").Value
If Dir(sXLPath) = "" Then
Beep
MsgBox ("Excel-Arbeitsmappe nicht gefunden!")
Exit Sub
End If
sZIPPath = Left(sXLPath, Len(sXLPath))
sWINZIPPath = Range("c25").Value
If Dir(sWINZIPPath) = "" Then
Beep
MsgBox ("Winzip wurde nicht gefunden!")
Exit Sub
End If
Shell sWINZIPPath & " -a" & sZIPPath & " " & sXLPath
Application.Wait Now + TimeSerial(0, 0, 2)
Kill sXLPath
End Sub
Vielen Dank
Brôt Üzkedü°r