m.cTmpExcel =SYS( 2023 )+'\'+SYS( 2015 )+'.XLS' && SYS( 2015 )
 EXPORT TO &cTmpExcel TYPE XL5 FIELDS CN_REF, cn_desc, WHAR, cn_instock, cn_onorder, cn_sell 
    
    oExcel=""
    oExcel=CREATEOBJECT("Excel.Application")
    oExcel.VISIBLE=.f.
    oWorkbook = oExcel.Workbooks.OPEN(cTmpExcel)

oExcel.Application.DisplayAlerts = .f.

*-- add a new workbook
    loWkBkTmp = oExcel.Workbooks.ADD()
*-- copy the created worksheet to the new workbook
    oWorkbook.ActiveSheet.COPY(loWkBkTmp.Sheets( 1 ))
*-- close the original workbook
    oWorkbook.CLOSE()
...