Comments on: Robust VBA Save-As Technique

By: Jon Peltier

Jon Peltier — Mon, 26 Mar 2012 11:54:32 +0000

format the cells in Excel as Number with no decimals, and make sure the column is wide enough to display the entire number. Now exporting as CSV will preserve all digits.

By: Sam

Sam — Sun, 25 Mar 2012 05:48:33 +0000

Hi Jon Peltier, how about saving the file as .csv;

I am using this

objXlBook.SaveAs csvFileName, XlFileFormat.xlCurrentPlatformText

but the problem here is some data (number) are not getting correctly saved.
Like
59829220084018 -> 5.98292E+13
24143490084016 -> 2.41435E+13

Any advice with will be highly appreciated,

Best Regards,

Sam

By: Jon Peltier

Jon Peltier — Wed, 23 Mar 2011 19:08:37 +0000

Jay -

That problem led to a day or so of unbillable time last year, because it took that long to figure out the intricacies of Save and SaveAs in programs which may be used in Exce l2003 and 2007, what with compatibility mode, macro enabled files, and so forth. Just reading your comment brings back the headache I experienced.

You would have to change the filter in GetSaveAsFilename from “Excel Files (*.xls),*.xls” to something more flexible.

In 2007:
“Excel Workbook (*.xlsx),*.xlsx, Excel Macro-Enabled Workbook (*.xlsm),*.xlsm, Excel 97-2003 Workbook (*.xls),*.xls”

In 2003:
“Excel Workbook (*.xls),*.xls, Excel 2007 Workbook (*.xlsx),*.xlsx, Excel 2007 Macro-Enabled Workbook (*.xlsm),*.xlsm”

These will show all of the file types listed in the save as type dropdown, and if you don’t specify a FilterIndex, it will select the first type by default.

Then when saving, you will need to use the appropriate xlFileFormat parameter:

In Excel 2003:
xlWorkbookNormal for .xls
51 for .xlsx
52 for .xlsm
(only numerical values, not named constants)

In 2007:
xlOpenXMLWorkbook for .xlsx
xlOpenXMLWorkbookMacroEnabled for .xlsm
xlExcel8 for .xls

And there is some compatibility mode checking that you need to do if you want to save as xlExcel8 in 2007.

By: Jay

Jay — Wed, 23 Mar 2011 16:35:54 +0000

I had a question about saving files with the FIleFormat specified. I ran across this while trying to use your code to save as a xlsm file. I finally figured out that I needed to add FileFormat:=xlOpenXMLWorkbookMacroEnabled to the end of you line that reads ActiveWorkbook.SaveAs sFullName. However, this will save all files in this format, correct? How would you alter the code to possibly send the format in as a parameter with xlsx as the default? This is an awesome piece of code and thanks for any help.

By: Jon Peltier

Jon Peltier — Sun, 06 Feb 2011 23:25:26 +0000

Darro - Before this line

ActiveWorkbook.SaveAs sFullName

you make any necessary changes in the workbook. This includes in your case, copying each worksheet's contents, and using Paste Special - Value.

By: darro

darro — Sun, 06 Feb 2011 20:47:19 +0000

Hi,

How would I use this code to open the save as dialogue so the user can choose the name and save location, but when the file is saved have formulas converted to values?