PROBLEMA CON EXCEL
Posted: Wed Sep 20, 2006 11:35 pm
Tengo esta rutina, me crea la hoja de calculo OK, pero al cerrarla con
oSHEET:END() manda el siguiente error:
Error description: Error EXCEL.APPLICATION:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: END
FUNCTION DEMOXLS
CursorWait()
oXls:=TOLEAUTO():NEW("EXCEL.APPLICATION")
oXls:WORKBOOKS:ADD()
oBOOK:=oXLS:GET("ActiveWorkBook")
oSHEET:=oXLS:GET("ActiveSheet")
*
oSHEET:CELLS(6,1):VALUE="CUEN"
oloSHEET:CELLS(6,2):VALUE='SCTA'
oSHEET:CELLS(6,3):VALUE='SSCT'
*
XARCH='AUXILIAR.XLS'
oSHEET:SAVEAS(XARCH)
oXLS:VISIBLE:=.T.
oSHEET:END()
oBOOK:END()
oXLS:END()
CursorArrow()
RETURN NIL
oSHEET:END() manda el siguiente error:
Error description: Error EXCEL.APPLICATION:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: END
FUNCTION DEMOXLS
CursorWait()
oXls:=TOLEAUTO():NEW("EXCEL.APPLICATION")
oXls:WORKBOOKS:ADD()
oBOOK:=oXLS:GET("ActiveWorkBook")
oSHEET:=oXLS:GET("ActiveSheet")
*
oSHEET:CELLS(6,1):VALUE="CUEN"
oloSHEET:CELLS(6,2):VALUE='SCTA'
oSHEET:CELLS(6,3):VALUE='SSCT'
*
XARCH='AUXILIAR.XLS'
oSHEET:SAVEAS(XARCH)
oXLS:VISIBLE:=.T.
oSHEET:END()
oBOOK:END()
oXLS:END()
CursorArrow()
RETURN NIL