Jag har en excelfil som jag med hjälp av funktionen shell skulle vilja zippa och spara ner som en zipfil. Jag vill alltså inte öppna den i winzip.
Säg att min excelfil heter Lisa.xls och ligger under c:/, vad blir då syntaxen i shellfunktionen?
Någon som kan hjälpa mig med det?

Hej,

Följande ger dig en start med winzip:

Sub Zipper(ByVal wkb2 As String)
'wkb2 är arbetsbokens namn
Dim winZ As String
Dim deSt As String
Dim she As String
Dim loC8 As String
Application.StatusBar = "Packar fil och skapar mail - v v vänta..."
loC8 = "\\Chem1\e-mails\mail\" & ActiveWorkbook.Name
deSt = "\\Chem1\attach\" & wkb2 & ".zip"
she = "C:\Program Files\WinZip8\wzzip" & " " & deSt & " " & loC8 '-yp to
test zipping
winZ = Shell(she)
End Sub


Lycka till,
XL-Dennis

Hej XL-Dennis!
Tack för din hjälp men jag får det inte att fungera.
Kanske har jag missuppfattat någonting i koden.
För att dubbelkolla att det inte är någon missuppfattning så kanske du kan lägga till mina värden i syntaxen?
Om min fil heter Lisa.xls och ligger under c:\ där även zipfilen ska ligga och heta lisa.zip hur skulle då koden se ut?

Sen undrar jag även vad "ByVal wkb2 As String" ska innehålla för något?

Tack för din hjälp!

LISA