Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extra "." in file name when creating zip file in 2007 with 2003 co
I have some code that works great in Excel 2003, but in 2007, when creating a
zip file, there is an extra "." in the file name, like filenameZ..zip. It happens in both the filename inside the zip file AND in the zip file itself. Here is the suspect code: FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "Z" & ".xlsm" I've changed the file extension to xlsm, but if I try to change the FileNameXls to Xlsm, it does not work. Does anyone have any ideas? I got this code from Ron several years ago. THanks much! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extra "." in file name when creating zip file in 2007 with 2003 co
In 2007 the file extensions are 4 characters and not 3 (xlsx and xlsm) so
your code Len(activeworkbook.Name) - 4 is not stripping off the "." anymore. It needs to be Len(activeworkbook.Name) - 5 "David" wrote: I have some code that works great in Excel 2003, but in 2007, when creating a zip file, there is an extra "." in the file name, like filenameZ..zip. It happens in both the filename inside the zip file AND in the zip file itself. Here is the suspect code: FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "Z" & ".xlsm" I've changed the file extension to xlsm, but if I try to change the FileNameXls to Xlsm, it does not work. Does anyone have any ideas? I got this code from Ron several years ago. THanks much! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extra "." in file name when creating zip file in 2007 with 2003 co
David,
File extensions in E2007 are 4 characters .long so your part line Len(ActiveWorkbook.Name) - 4) is taking away the xlsm but not the period and because you then add a period you get 2 Len(ActiveWorkbook.Name) - 5) should do the trick. Mike "David" wrote: I have some code that works great in Excel 2003, but in 2007, when creating a zip file, there is an extra "." in the file name, like filenameZ..zip. It happens in both the filename inside the zip file AND in the zip file itself. Here is the suspect code: FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "Z" & ".xlsm" I've changed the file extension to xlsm, but if I try to change the FileNameXls to Xlsm, it does not work. Does anyone have any ideas? I got this code from Ron several years ago. THanks much! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extra "." in file name when creating zip file in 2007 with 2003 co
Hi David
I see that the macro on my site is not correct I will update it today and post the link here -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "David" wrote in message ... I have some code that works great in Excel 2003, but in 2007, when creating a zip file, there is an extra "." in the file name, like filenameZ..zip. It happens in both the filename inside the zip file AND in the zip file itself. Here is the suspect code: FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "Z" & ".xlsm" I've changed the file extension to xlsm, but if I try to change the FileNameXls to Xlsm, it does not work. Does anyone have any ideas? I got this code from Ron several years ago. THanks much! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extra "." in file name when creating zip file in 2007 with 2003 co
Small fix
This will work for Excel 97-200 and 2007-2010 files http://www.rondebruin.nl/windowsxpzip.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Ron de Bruin" wrote in message ... Hi David I see that the macro on my site is not correct I will update it today and post the link here -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "David" wrote in message ... I have some code that works great in Excel 2003, but in 2007, when creating a zip file, there is an extra "." in the file name, like filenameZ..zip. It happens in both the filename inside the zip file AND in the zip file itself. Here is the suspect code: FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "Z" & ".xlsm" I've changed the file extension to xlsm, but if I try to change the FileNameXls to Xlsm, it does not work. Does anyone have any ideas? I got this code from Ron several years ago. THanks much! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Selecting "Save As" adds "Copy of" to file name- MS Excel 2007 | Excel Discussion (Misc queries) | |||
"Too Many Cell Formats" Error when opening a 2007 XLS file in 2003 | Excel Discussion (Misc queries) | |||
Unable to open a 82 KB XLSM file due to "Too many different cellformats" & "Converter failed to open the file." errors. | Excel Discussion (Misc queries) | |||
creating an XLS file from " files" data in a Folder | Excel Discussion (Misc queries) | |||
Problem- Recording macros for "file save" and "File open" | Excel Programming |