Power Builder - EXCEL SE QUEDA CARGADO...

Hola a todos:

Tengo un problemita, desde mi aplicacion envio datos de mi datawindow a excel, pero cuando termina, nunca se descarga excel de memoria.

Mi procedimiento es el siguiente:

OLEObject xlapp
int li_ret
xlApp = Create OLEObject
li_ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if li_ret < 0 then
Close ( w_msg2 )
MessageBox("Error Conectandose a Excel !",string(li_ret))
destroy xlApp;
return
end if

xlApp.Application.Workbooks.Open("c:\SINTG\CARTA PORTE PV.xls")
xlApp.Application.Visible = false
xlApp = xlapp.Application.ActiveWorkbook.Worksheets[1]
xlApp.cells[9,3].value = String ( Day ( ld_fecreg ) )
xlApp.cells[9,7].value = ls_meses[Month( ld_fecreg ) ]
xlApp.cells[9,9].value = String ( Month ( ld_fecreg ) )

xlApp.Application.Activeworkbook.Save()
xlApp.Application.Activeworkbook.PrintOut()
xlApp.DisConnectObject()
Destroy xlApp;

pero no lo descarga de memoria...
¿alguien sabe porque es esto ?.. trabajo en PB 7.0

Gracias

Antes de hacer el DisConnectObject, debes hacer una llamada a la función .Application.Quit()

Ejemplo:
xlApp.Application.Quit()
xlApp.DisConnectObject()
Destroy xlApp

Hola Jesus:

Mil gracias por tu ayuda, ya aplique la parte del Quit(), pero hay dos cosas:

1) como es un documento que no tiene nada y yo pongo la información, al momento de hacer el Quit(), me pregunta si deseo guardar la información, por lo cual necesito que esto no lo pregunte al usuario, sino que salga de excel sin guardar los datos.

2) Al decirle a Excel que no guarde los datos me arroja un mensaje que Excel provoco un error. ¿sabes a que se debe esto ?

Mil gracias por tu ayuda amigo....

Hola de nuevo:

1) Para evitar que Excel pregunte al usuario si desea guardar los cambios, se debe cerrar el documento con la función Activeworkbook.close(), y tienes que pasar el valor FALSE como parámetro (para que no guarde los cambios).

Ejemplo:
// Se cierra el documento sin guardar los cambios
xlApp.Application.Activeworkbook.close(false)
// Se cierra Excel
xlApp.Application.Quit()
xlApp.DisConnectObject()
Destroy xlApp

2) Sobre el error que comentas, no sé porqué puede ocurrir (a mi nunca me ha pasado). Si después de aplicar lo que te he indicado en el paso anterior te sigue ocurriendo, indica que error te da exactamente, para ver si te podemos ayudar.