Question : Foxpro and using Excel 2010 as an object

Part of my main Foxpro program converts Excel files to Excel 97/95 to be appended later on in other parts of the program. Here is my conversion code:

PROCEDURE excelconv
oExcel = CREATEOBJECT("Excel.Application")
 xlworkbook = oExcel.Workbooks.Open(ALLTRIM(insert_config.location)+"\"+m_file)
 xlworkbook.SaveAs(ALLTRIM(insert_config.location)+"\"+LEFT(ALLTRIM(m_file),LEN(ALLTRIM(m_file))-4)+".xls",43)
 *RELEASE oExcel
xlworkbook.saved = .t.
xlworkbook.close
oExcel.quit
RETURN

This has worked for clients that have 2003 and 2007 Excel.

I just upgraded to 2010 and was runing a test and got this error on the "saveas" line:

OLE IDispatch exception code 0 from Microsoft Excel: Unable to get the SaveAs property of the workbook class..

I attempted to change the file format to -4143 instead on 43. The program processed the SaveAs OK, but the file gave me an "Invalid Microsoft Excel File format" when I attempted to append.

I appreciate your help on this. Thanks

Answer : Foxpro and using Excel 2010 as an object

Perhaps try  xlExcel9795 instead of 43..
Random Solutions  
 
programming4us programming4us