Ajuda com Excel

ChExcel:save().
ChExcel:close().
ChExcel:quit().

Baltazar, mais uma vez estou contando com sua ajuda. Obrigado. Estou usando o código abaixo, só que ele não grava a planilha automaticamente, o excel exibe a caixa perguntando de quer gravar, mas quando eu peço para gravar a planilha não é gravada. Você pod me dizer onde estou errando no código abaixo:

DEFINE VARIABLE chexcel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkBook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chPlanilha AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE excelappl AS COM-HANDLE NO-UNDO.

CREATE "excel.application" chexcel.

ASSIGN chWorkBook = chExcel:workbooks:ADD("c:\Inetpub\grafico\teste4").
chPlanilha = chWorkBook:workSheets(1).
/*Gravar datas*/
chPlanilha:cells(3,2):VALUE = dataini.
chPlanilha:cells(4,2):VALUE = dataini + 1.
chPlanilha:cells(5,2):VALUE = dataini + 2.
chPlanilha:cells(6,2):VALUE = dataini + 3.
chPlanilha:cells(7,2):VALUE = dataini + 4.
/*Gravar todos as liquidações*/
chPlanilha:cells(3,3):VALUE = liquidado.
chPlanilha:cells(4,3):VALUE = liquidado1.
chPlanilha:cells(5,3):VALUE = liquidado2.
chPlanilha:cells(6,3):VALUE = liquidado3.
chPlanilha:cells(7,3):VALUE = liquidado4.
/*Gravar todos as liberações*/
chPlanilha:cells(3,4):VALUE = sub-repassado.
chPlanilha:cells(4,4):VALUE = sub-repassado1.
chPlanilha:cells(5,4):VALUE = sub-repassado2.
chPlanilha:cells(6,4):VALUE = sub-repassado3.
chPlanilha:cells(7,4):VALUE = sub-repassado4.

ChExcel:SaveAs("c:\Inetpub\grafico\grafico.xls",,,,,,).

ChExcel:save().
ChExcel:close().
ChExcel:quit().


RELEASE OBJECT chexcel NO-ERROR.
RELEASE OBJECT chWorkBook NO-ERROR.
RELEASE OBJECT chPlanilha NO-ERROR.
RELEASE OBJECT excelappl NO-ERROR.

Veja este programa.

Faz o que necessite e mais umas coisas ...

Mais uma vez obrigado, valeu a dica