Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zipping Excel files
Hi There,
I am trying to create a vba macro to automatically zip my all excel file with use of SHELL command in vba but I am unsuccessful. Can anyone check my code and tell me what's wrong with it. What it does I am trying to use the current date as my zip filename. When I run it seems nothing happened and gives no error. Sub ZIPMYFILE() TempoFileDIR = Format(now, "yyyymmdd_hhmmss") Dim TodaysArchive As String Dim aBatchCopy As String TodaysArchive = iArchivePath & TempoFileDIR & ".zip" & " " & cWorkingPath aBatchCopy = ("cmd /c PKZIPC -add - directories=relative " & TodaysArchive) Call Shell(aBatchCopy, vbHide) End sub TIA Eric |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zipping Excel files
See a example on my site Eric
I will release my new SendMail Add-in soon (this can zip also) http://www.rondebruin.nl/sendmail.htm#Zip -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Eric" wrote in message ... Hi There, I am trying to create a vba macro to automatically zip my all excel file with use of SHELL command in vba but I am unsuccessful. Can anyone check my code and tell me what's wrong with it. What it does I am trying to use the current date as my zip filename. When I run it seems nothing happened and gives no error. Sub ZIPMYFILE() TempoFileDIR = Format(now, "yyyymmdd_hhmmss") Dim TodaysArchive As String Dim aBatchCopy As String TodaysArchive = iArchivePath & TempoFileDIR & ".zip" & " " & cWorkingPath aBatchCopy = ("cmd /c PKZIPC -add - directories=relative " & TodaysArchive) Call Shell(aBatchCopy, vbHide) End sub TIA Eric |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zipping Excel files
Oops
You are using PKZIPC I am not familiar with this program -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Ron de Bruin" wrote in message ... See a example on my site Eric I will release my new SendMail Add-in soon (this can zip also) http://www.rondebruin.nl/sendmail.htm#Zip -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Eric" wrote in message ... Hi There, I am trying to create a vba macro to automatically zip my all excel file with use of SHELL command in vba but I am unsuccessful. Can anyone check my code and tell me what's wrong with it. What it does I am trying to use the current date as my zip filename. When I run it seems nothing happened and gives no error. Sub ZIPMYFILE() TempoFileDIR = Format(now, "yyyymmdd_hhmmss") Dim TodaysArchive As String Dim aBatchCopy As String TodaysArchive = iArchivePath & TempoFileDIR & ".zip" & " " & cWorkingPath aBatchCopy = ("cmd /c PKZIPC -add - directories=relative " & TodaysArchive) Call Shell(aBatchCopy, vbHide) End sub TIA Eric |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Navigating to Excel files over network slow, but not Word files | Excel Discussion (Misc queries) | |||
If .xlsx is a zip archive, why does zipping it reduce file size? | Excel Discussion (Misc queries) | |||
How to change default Open/Files of Type to "Microsoft Excel Files | Excel Discussion (Misc queries) | |||
Zipping my Excel Files and maintain the folder structure | Excel Discussion (Misc queries) | |||
How can I reduce the size of my Excel file without zipping it? | Excel Discussion (Misc queries) |