>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