>>>IF '12' $ loExcel.VERSION && XL 2007 >>> * Kevin Delaney's suggestion >>> loExcel.SAVEAS(tcXLSFileName, 39) && 39 >>> * Cetin Basoz suggestion >>> loExcel.ActiveWorkbook.Saved = .T. >>> loExcel.ActiveWorkbook.CLOSE(0) >>> ELSE >>> loExcel.SAVE() >>> ENDIF>>>
>>LOCAL loExcel AS Excel.Application >>loExcel = CREATEOBJECT([Excel.Application]) >>loExcel.WorkBooks.Add() >>tcXLSFileName = [c:\test.xlsx] >>IF '12' $ loExcel.VERSION && XL 2007 >> * Kevin Delaney's suggestion >> loExcel.ActiveWorkbook.SAVEAS(tcXLSFileName, 39) && 39 >> * Cetin Basoz suggestion >> loExcel.ActiveWorkbook.Saved = .T. >> loExcel.ActiveWorkbook.CLOSE(0) >>ELSE >> loExcel.SAVE() >>ENDIF >>>