See
http://www.rondebruin.nl/saveas.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm



"Keith G Hicks" wrote in message ...
I think this will solve the problem. Any feedback?

Dim lCurrXlVersion As Long
lCurrXlVersion = objExcelApp.Version

objExcelApp.DisplayAlerts = False
Select Case lCurrXlVersion
Case 11
objExcelBk.SaveAs sTempPath & sExcelFileName
Case 12, 14
objExcelBk.SaveAs sTempPath & sExcelFileName, 56 '56 = xl
2000/2003
Case Else
MsgBox "Error saving Excel file because you are not using
version 2003, 2007 or 2010"
End Select



"Keith G Hicks" wrote in message
...
Well to make this worse, I just learned that 2007 does not support saving
as 95/97 so I'm guessing that if someone using Office 2007 runs my code
that has xlExcel9795 in it then they will get an error too.


"Keith G Hicks" wrote in message
...
I'm working in vba in Access to create and save an Excel file. All's good
except that one of the workstations this is runnign on is using Office
2007. I'm developing in 2003 and all the other workstatiosn they have are
using 2003. It's very important that the files be saved in 2003 format.

When I do this, it runs fine and saves as 97/95

objExcelBk.SaveAs sTempPath & sExcelFileName, xlExcel9795 ','56 = xl
2000/2003

I read online in a forum post that "56" is the correct code for saving as
2003 but that's when the code is written in 2007. I cannot find a
constant in the list of constants in 2003 to save as 2003 (like
xlExcel0003 for example) and the "56" below causes the code to crash.

objExcelBk.SaveAs sTempPath & sExcelFileName, 56

I may end up having to use xlExcel9795 and I think that will be okay but
how do I code this to ensure saving as 2003 format while writing the code
in 2003?

Thanks,

Keith