Warning error following Excel sheet save

[ssimop]

Dear Gintaras,

Following the save statement of the following function, I get the Warning :

Warning: error (RT) in ExcelSheet destructor: 0x800401A8,

I would appreciate your advice. Many thanks in advance. Best regards.

Function QMD_Excel

Code:

Copy      Help

;\
function str'sData

str si.getmacro(getopt(itemid) 1)
str caller.getmacro(getopt(itemid 1) 1);err    caller=si
if ideb; min 0; err out "<>%s : <open ''%s /%i''>%s</open> - Called by : <open>%s</open>%s" NowT si _error.place si caller

str sl s

ARRAY(int) fields
fields[]=24
fields[]=41
fields[]=3
fields[]=15
fields[]=15

int i nst

str sOutf="C:\tmp\EcoQMD.xls"
UniqueFileName(sOutf)
cop- "$my qm$\Files\misc\EcoTemplate.xls" sOutf

ExcelSheet es.Init("Sheet1" 8 sOutf)
err
,_s=_error.description
,out "<>%s : <open ''%s /%i''>%s</open> - %s" NowT si _error.place si _s
,mac "Warning_QM"
,ret

foreach sl sData
,i=i+1
,sl.replacerx("[<c].*?[>]" "")
,sl.findreplace("</c>" "")
,nst=5
,for int'j 0 5
;,,out F"{nst} - {fields[j]}"
,,s.getU(sl nst fields[j])
,,es.SetCell(s j+2 i)
,,nst=nst+fields[j]
,,
es.Save("" 2)
0.2
run sOutf
ont win()
ret

[Gintaras]

Try to remove

run sOutf

or add

es.Close

before it