HELP!! need to automate ZIP file creation...

[bapcki1]

Hi Everybody,

I was wondering whether anybody could help me ZIP files using Excel VBA and the windows .ZIP file creator please?

In Cell:

A1, File name and file path 1 to be zipped
A2, File name and file path 2 to be zipped
A3, File name and file path 3 to be zipped
A4, Name of ZIP file to be created containing Files stated in A1,A2 and A3
A5, File path of where newly created ZIP file (A4) is to be saved.

The files that need to be zipped are .psr files.


If anybody can help, that would be amazing as I have many, many ZIP files that need creating every month at work and I am currently doing it manually .
I can't download other ZIP file creators either so I have to use what Windows has already.


THANK YOU!!

Paddy

 

[Kyle123]

Have a look here Zip file or files with the default Windows zip program (VBA)

 

[bapcki1]

Have a look here Zip file or files with the default Windows zip program (VBA)

Hi Kyle123,

Thank you for the rapid response!

I have already taken a look at that code.
I didn't fully understand how I could alter it to my needs:


- I dont believe it gives you the option to specify the file names and file paths in cells.
- How to edit the line:

[COLOR=#000080]FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*), *.xl*", _
[/COLOR][COLOR=#000080]                    MultiSelect:=True, Title:="Select the files you want to zip")[/COLOR]

so that it will compress .psr's.


Any help?

Many thanks,

Paddy