| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zipping the current Excel Spreadsheet with PkZip
Is there anyway to zip the current spreadsheet using the DOS version of
PkZip? I don't have WinZip, but I do have PkZip. I just want to save the worksheet with it's current name. Thanks! |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Zipping the current Excel Spreadsheet with PkZip
Hi David
If you use Win XP you can try http://www.rondebruin.nl/windowsxpzip.htm -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... Is there anyway to zip the current spreadsheet using the DOS version of PkZip? I don't have WinZip, but I do have PkZip. I just want to save the worksheet with it's current name. Thanks! |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Zipping the current Excel Spreadsheet with PkZip
I got a compile error at the NewZip (FileNameZip) line. Unexpected Sub,
Function, Property. What did I do wrong? Dim strDate As String, DefPath As String, sFName As String Dim oApp As Object, iCtr As Long Dim FName, vArr, FileNameZip DefPath = Application.DefaultFilePath If Right(DefPath, 1) < "\" Then DefPath = DefPath & "\" End If strDate = Format(Now, " dd-mmm-yy h-mm-ss") FileNameZip = DefPath & "MyFilesZip " & strDate & ".zip" 'Browse to the file(s), use the Ctrl key to select more files FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Select the files you want to zip") If IsArray(FName) = False Then 'do nothing Else 'Create empty Zip File NewZip (FileNameZip) 'Here is where the error pccurs. Set oApp = CreateObject("Shell.Application") "Ron de Bruin" wrote: Hi David If you use Win XP you can try http://www.rondebruin.nl/windowsxpzip.htm -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... Is there anyway to zip the current spreadsheet using the DOS version of PkZip? I don't have WinZip, but I do have PkZip. I just want to save the worksheet with it's current name. Thanks! |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Zipping the current Excel Spreadsheet with PkZip
Hi David
Copy the sub NewZip also in the module -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... I got a compile error at the NewZip (FileNameZip) line. Unexpected Sub, Function, Property. What did I do wrong? Dim strDate As String, DefPath As String, sFName As String Dim oApp As Object, iCtr As Long Dim FName, vArr, FileNameZip DefPath = Application.DefaultFilePath If Right(DefPath, 1) < "\" Then DefPath = DefPath & "\" End If strDate = Format(Now, " dd-mmm-yy h-mm-ss") FileNameZip = DefPath & "MyFilesZip " & strDate & ".zip" 'Browse to the file(s), use the Ctrl key to select more files FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Select the files you want to zip") If IsArray(FName) = False Then 'do nothing Else 'Create empty Zip File NewZip (FileNameZip) 'Here is where the error pccurs. Set oApp = CreateObject("Shell.Application") "Ron de Bruin" wrote: Hi David If you use Win XP you can try http://www.rondebruin.nl/windowsxpzip.htm -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... Is there anyway to zip the current spreadsheet using the DOS version of PkZip? I don't have WinZip, but I do have PkZip. I just want to save the worksheet with it's current name. Thanks! |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Zipping the current Excel Spreadsheet with PkZip
I copied the sub and both functions. Works great!
Thanks much!! "Ron de Bruin" wrote: Hi David Copy the sub NewZip also in the module -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... I got a compile error at the NewZip (FileNameZip) line. Unexpected Sub, Function, Property. What did I do wrong? Dim strDate As String, DefPath As String, sFName As String Dim oApp As Object, iCtr As Long Dim FName, vArr, FileNameZip DefPath = Application.DefaultFilePath If Right(DefPath, 1) < "\" Then DefPath = DefPath & "\" End If strDate = Format(Now, " dd-mmm-yy h-mm-ss") FileNameZip = DefPath & "MyFilesZip " & strDate & ".zip" 'Browse to the file(s), use the Ctrl key to select more files FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Select the files you want to zip") If IsArray(FName) = False Then 'do nothing Else 'Create empty Zip File NewZip (FileNameZip) 'Here is where the error pccurs. Set oApp = CreateObject("Shell.Application") "Ron de Bruin" wrote: Hi David If you use Win XP you can try http://www.rondebruin.nl/windowsxpzip.htm -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... Is there anyway to zip the current spreadsheet using the DOS version of PkZip? I don't have WinZip, but I do have PkZip. I just want to save the worksheet with it's current name. Thanks! |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Zipping the current Excel Spreadsheet with PkZip
Thanks for the feedback
I will add a example to zip the activeworkbook and mail it also this weekend -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... I copied the sub and both functions. Works great! Thanks much!! "Ron de Bruin" wrote: Hi David Copy the sub NewZip also in the module -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... I got a compile error at the NewZip (FileNameZip) line. Unexpected Sub, Function, Property. What did I do wrong? Dim strDate As String, DefPath As String, sFName As String Dim oApp As Object, iCtr As Long Dim FName, vArr, FileNameZip DefPath = Application.DefaultFilePath If Right(DefPath, 1) < "\" Then DefPath = DefPath & "\" End If strDate = Format(Now, " dd-mmm-yy h-mm-ss") FileNameZip = DefPath & "MyFilesZip " & strDate & ".zip" 'Browse to the file(s), use the Ctrl key to select more files FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Select the files you want to zip") If IsArray(FName) = False Then 'do nothing Else 'Create empty Zip File NewZip (FileNameZip) 'Here is where the error pccurs. Set oApp = CreateObject("Shell.Application") "Ron de Bruin" wrote: Hi David If you use Win XP you can try http://www.rondebruin.nl/windowsxpzip.htm -- Regards Ron de Bruin http://www.rondebruin.nl "David" wrote in message ... Is there anyway to zip the current spreadsheet using the DOS version of PkZip? I don't have WinZip, but I do have PkZip. I just want to save the worksheet with it's current name. Thanks! |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Zipping the current Excel Spreadsheet with PkZip
I have newly installed Microsoft Office. Now, launching a file, sa Personal.xls (containing macros) from Excel startup folder, trigger off the error message: MODULE NOT FOUND. The file consequently neve gets open. Can someone familiar with this problem help me with solution? Thanks Myle -- Myle ----------------------------------------------------------------------- Myles's Profile: http://www.excelforum.com/member.php...fo&userid=2874 View this thread: http://www.excelforum.com/showthread.php?threadid=49431 |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Zipping the current Excel Spreadsheet with PkZip
I'm no expert, but instead of putting it in the personal.xls, but it in the
ThisWorkbook module. Alt 11 to start the marco editor, CTRL+R to see the Project Viewer and look for the last module under your workbook. You didn't include any code, not did you post your question in the right place. Try again if this doesn't help. "Myles" wrote: I have newly installed Microsoft Office. Now, launching a file, say Personal.xls (containing macros) from Excel startup folder, triggers off the error message: MODULE NOT FOUND. The file consequently never gets open. Can someone familiar with this problem help me with a solution? Thanks Myles -- Myles ------------------------------------------------------------------------ Myles's Profile: http://www.excelforum.com/member.php...o&userid=28746 View this thread: http://www.excelforum.com/showthread...hreadid=494316 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Zipping my Excel Files and maintain the folder structure | Excel Discussion (Misc queries) | |||
| Can Excel automatically enter the current date in a spreadsheet? | Excel Discussion (Misc queries) | |||
| How can I reduce the size of my Excel file without zipping it? | Excel Discussion (Misc queries) | |||
| Zipping Excel files | Excel Programming | |||
| How to open another Excel spreadsheet to copy data into current spreadsheet ? | Excel Programming | |||
Hybrid Mode
