Excel to WinZip in VBA

[Jack in the UK]

Hi Guys

Nice on here have all my code want to add after save the ziple is zipped as save as file name already defined.

Guess VBA - any ideas guys

Rdgs


PS i have seen on old board some codes but i never really have sucess with them, dont know why

 

[Ivan F Moala]

To add a file to an already created zip;

Sub ZipFile()
Dim ZipPath As String
Dim ZipIt As String
Dim Source As String
Dim Dest As String

ZipPath = "C:Program filesWinzip"
Source = "C:Final.xls" '"C:myfile.xls"
Dest = "C:tt.zip" '"C:MydestinationDir"
'Note spaces important
ZipIt = Shell(ZipPath & "Winzip32 -a " & Dest & " " & Source, vbNormalFocus)

End Sub

Some zip commands you may need to know;
Adding files:

The command format is:

winzip[32].exe [-min] action [options] filename[.zip] files

where:

-min specifies that WinZip should run minimized. If -min is specified,

it must be the first command line parameter.

action

-a For add, -f for freshen, -u for update, and -m for move. These

actions correspond To the actions described In the section titled

"Adding files To an Archive" in the online manual.

options

-r and -p correspond To the "Recurse Directories" and "Save Extra

Directory Info" checkboxes in the Add and Drop dialog boxes. -ex, -en,

-ef, -es, and -e0 options determine the compression method: eXtra,

Normal, Fast, Super fast, and no compression. The default is "Normal".

-s allows specification of a password. The password can be enclosed

In quotes, For example, -s"Secret Password". Note that passwords are

case-sensitive.

-hs option allows hidden and system files To be included.

filename.zip

Specifies the name of the ZIP involved. Be sure To use the full



HTH

Ivan

 

[Jack in the UK]

Hi Ivan

Nice to see you post, and a big thanks, ill email to report.

A tip 'o the hat to my friend on the other side of the world, my thanks!
Your day is starting so please make it a good one, as my day starts to finish.

Well have a drink soon on the Email's, thank you

Rdgs