PARA OSCAR...AYUDA CON EXCEL
Publicado por Antonio (1271 intervenciones) el 15/04/2005 18:28:55
Hola Oscar:
Tengo un problema con Excel...
De mi aplicación de PB coloco datos de un datawindow de esta forma:
OLEObject xlapp
xlApp = Create OLEObject
li_ret = xlApp.ConnectToNewObject( "Excel.application" )
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:\prueba\prueba.xls")
xlApp.Application.Visible = false
xlApp = xlapp.Application.ActiveWorkbook.Worksheets[1]
xlApp.Application.cells[9,3].value = String ( Day ( ld_fecreg ) )
xlApp.Application.cells[9,7].value = Upper ( ls_meses[Month( ld_fecreg ) ] )
xlApp.Application.Activeworkbook.PrintOut()
xlApp.Application.Activeworkbook.close(false)
xlApp.Application.Quit()
xlApp.DisConnectObject()
Destroy xlApp;
Hasta ahi todo bien, imprime el documento con los datos, etc.
mi problema radica en que excel queda en memoria y no se descarga la aplicación de excel por consiguiente cuando el usuario habre excel normalmente manda un error de excel incluso cuando uso esta parte
xlApp.Application.Activeworkbook.close(false)
xlApp.Application.Quit()
¿Sabes porque es el problema amigo ?
mil gracias
Tengo un problema con Excel...
De mi aplicación de PB coloco datos de un datawindow de esta forma:
OLEObject xlapp
xlApp = Create OLEObject
li_ret = xlApp.ConnectToNewObject( "Excel.application" )
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:\prueba\prueba.xls")
xlApp.Application.Visible = false
xlApp = xlapp.Application.ActiveWorkbook.Worksheets[1]
xlApp.Application.cells[9,3].value = String ( Day ( ld_fecreg ) )
xlApp.Application.cells[9,7].value = Upper ( ls_meses[Month( ld_fecreg ) ] )
xlApp.Application.Activeworkbook.PrintOut()
xlApp.Application.Activeworkbook.close(false)
xlApp.Application.Quit()
xlApp.DisConnectObject()
Destroy xlApp;
Hasta ahi todo bien, imprime el documento con los datos, etc.
mi problema radica en que excel queda en memoria y no se descarga la aplicación de excel por consiguiente cuando el usuario habre excel normalmente manda un error de excel incluso cuando uso esta parte
xlApp.Application.Activeworkbook.close(false)
xlApp.Application.Quit()
¿Sabes porque es el problema amigo ?
mil gracias
Valora esta pregunta


0