AYUDA CON EXCEL.. ¡URGENTE!
Publicado por Antonio (1271 intervenciones) el 13/04/2005 01:10:28
Hola a todos:
tengo un problema con Excel, desde mi aplicación habro un archivo de Excel y coloco datos de una dtawindows de esta forma:
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:\PRUEBA\CARTA.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;
Nuestro buen amigo Jose me indico que pusiera esto antes de desconectar:
xlApp.Quit()
Pero siempre excel me dice que si quiero guardar los datos, pero no quiero guardarlo porque solo es un archivo de paso y por obvias razones no quiero que ese mensaje aparezca.. ahora bien, cuando le digo a excel que no guarde los datos éste manda un error y se queda cargado en memoria... trabajo con PB 7.0 y Officce 2000.
Por favor ayuda... necesito urgentemente resolver este problema.
Gracias
tengo un problema con Excel, desde mi aplicación habro un archivo de Excel y coloco datos de una dtawindows de esta forma:
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:\PRUEBA\CARTA.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;
Nuestro buen amigo Jose me indico que pusiera esto antes de desconectar:
xlApp.Quit()
Pero siempre excel me dice que si quiero guardar los datos, pero no quiero guardarlo porque solo es un archivo de paso y por obvias razones no quiero que ese mensaje aparezca.. ahora bien, cuando le digo a excel que no guarde los datos éste manda un error y se queda cargado en memoria... trabajo con PB 7.0 y Officce 2000.
Por favor ayuda... necesito urgentemente resolver este problema.
Gracias
Valora esta pregunta
0