Save As XLS format from Excel 2013 VBA - Workbook Version #

Hello- I've been using this code for a little while and its been fine.

Setup: Office 2013 (latest updates) on Windows 7 Pro.

- What it's supposed to do: Save a new worksheet as XLS (~version 2003).
- Everything works fine and the sheet is saved in a new workbook.
- When I try to open it, excel sometimes says the file does not match the file extension/file type. Reports it may be corrupt.

Everything in the VBA seems to be fine... but I want to check this line of code with others:

Please Login or Register  to view this content.

Specifically, the excel version number

Please Login or Register  to view this content.

Any thoughts?

Thanks for the help!

Hey Lewis- Thanks for the help.

Is FileFormat=51 xls (Excel 2003)? I thought 51 is somewhere in the xlsx range (2007+).

Also, if I use 'FileFormat' am I able to change it to:

Please Login or Register  to view this content.

This is where I think I'm getting tripped up.

Thx for the help!

Sorry for the confusion. The above code was for a file I saved as .xlsx which was type 51.

Excel 2003 is type -4143 (xlWorkbookNormal). See https://msdn.microsoft.com/en-us/lib.../ff198017.aspx

Please note that the Numbers have changed if using Excel 2016.

Per Ron deBruin the numbers are slightly different when using MAC Excel.

Ron also says that for Windows xlExcel8 = 56 works in Excel 2007+ to save the file as .xls. I have always used -4143.

Lewis

Hello- Thank you for the help. Appreciate the assistance. I implemented your versioning and it worked... sort of...

After a whole bunch of testing, I found my version of Excel to be corrupt. I did a repair of office and it works consistently now. I'm keeping your version type since it seems to be working fine.

Thanks again.