convert all .xls files to winzip

[getuday]

Hello All,

Can we with a help of Macro or VBA convert all the .xls file in one folder to winzip or 7z files. There are say 900 files in one folder.

Thanks in advance,

Uday Naik

 

[Andrew Poulsom]

Look here:

http://www.rondebruin.nl/7zipwithexcel.htm

 

[VoG]

This may help you http://www.rondebruin.nl/7zipwithexcel.htm

 

[Sektor]

Place workbook with macro into folder with files.

[COLOR="Blue"]Sub[/COLOR] ToZIP()

    [COLOR="Blue"]Dim[/COLOR] fso [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Object[/COLOR], aFile [COLOR="Blue"]As[/COLOR] objec
    
    [COLOR="Blue"]Set[/COLOR] fso = CreateObject("Scripting.FileSystemObject")
    
    [COLOR="Blue"]For[/COLOR] [COLOR="Blue"]Each[/COLOR] aFile [COLOR="Blue"]In[/COLOR] fso.GetFolder(ThisWorkbook.Path).Files
        [COLOR="Blue"]If[/COLOR] fso.GetExtensionName(aFile.Name) [COLOR="Blue"]Like[/COLOR] "[Xx][Ll][Ss][XxMm]*" [COLOR="Blue"]Then[/COLOR]
            [COLOR="Blue"]Name[/COLOR] aFile.Name [COLOR="Blue"]As[/COLOR] Replace(aFile.Name, "." & fso.GetExtensionName(aFile.Name), "") & ".zip"
        [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
    [COLOR="Blue"]Next[/COLOR]

[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[getuday]

<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0><TBODY><TR><TD align=left>Hello all,

Thanks for replying......

I want the name to be same as the excel file. Say for example the name of the excel file is abc01003.xls it should change to abc01003.zip or abc01003.7z

and there are 800 to 900 files in it, all with different names. so the names should be same only the extension should change from .xls to .zip or .7z

Thanks & Regards,

Uday Naik</TD></TR></TBODY></TABLE>

 

[getuday]

Hello All,

Do you have reply for this post..if yes then please reply...

Thanks & regards,
Uday Naik

 

[Andrew Poulsom]

I found this by Googling:

http://answers.microsoft.com/en-us/...older-to/1e7c843d-14e1-4d5c-b51b-3773afdbc192

 

[Ruddles]

Excellent - quick and easy to install and use. Highly recommended!

 

[getuday]

Hi Andrew Poulsom,

Thanks a lot for the link...It worked for me...Thanks a lot

God bless you

Thanks & regrds,

Uday Naik