UNA DE EXCEL
Posted: Mon May 22, 2006 5:43 pm
Alguien podria indicarme como hacerle para
sumar celdas, utilizo la clase tole de la siguiente forma:
oXls:=TOLEAUTO():NEW("EXCEL.APPLICATION")
oXls:WORKBOOKS:ADD()
oBOOK:=oXLS:GET("ActiveWorkBook")
oSHEET:=oXLS:GET("ActiveSheet")
*
oSHEET:CELLS(4,2):VALUE="SALDO INICIAL"
oSHEET:CELLS(4,3):VALUE="ENERO"
oSHEET:CELLS(4,4):VALUE="FEBRERO"
oSHEET:CELLS(4,5):VALUE="MARZO"
oSHEET:CELLS(4,6):VALUE="ABRIL"
oSHEET:CELLS(4,7):VALUE="MAYO"
oSHEET:CELLS(4,8):VALUE="JUNIO"
oSHEET:CELLS(4,9):VALUE="JULIO"
oSHEET:CELLS(4,10):VALUE="AGOSTO"
oSHEET:CELLS(4,11):VALUE="SEPTIEMBRE"
oSHEET:CELLS(4,12):VALUE="OCTUBRE"
oSHEET:CELLS(4,13):VALUE="NOVIEMBRE"
oSHEET:CELLS(4,14):VALUE="DICIEMBRE"
oSHEET:CELLS(4,15):VALUE="TOTAL"
*
FOR N=1 TO 15
oSHEET:CELLS(4,N):Font:Name:="ARIAL"
oSHEET:CELLS(4,N):Font:Size:=12
oSHEET:CELLS(4,N):Font:bold:=.t.
oSHEET:CELLS(4,N):BORDERS():LINESTYLE:=1
NEXT N
*
oSHEET:CELLS(REN,3):VALUE=TRANS(N01,"999,999,999.99")
oSHEET:CELLS(REN,4):VALUE=TRANS(N02,"999,999,999.99")
oSHEET:CELLS(REN,5):VALUE=TRANS(N03,"999,999,999.99")
oSHEET:CELLS(REN,6):VALUE=TRANS(N04,"999,999,999.99")
oSHEET:CELLS(REN,7):VALUE=TRANS(N05,"999,999,999.99")
oSHEET:CELLS(REN,8):VALUE=TRANS(N06,"999,999,999.99")
oSHEET:CELLS(REN,9):VALUE=TRANS(N07,"999,999,999.99")
oSHEET:CELLS(REN,10):VALUE=TRANS(N08,"999,999,999.99")
oSHEET:CELLS(REN,11):VALUE=TRANS(N09,"999,999,999.99")
oSHEET:CELLS(REN,12):VALUE=TRANS(N10,"999,999,999.99")
oSHEET:CELLS(REN,13):VALUE=TRANS(N11,"999,999,999.99")
oSHEET:CELLS(REN,14):VALUE=TRANS(N12,"999,999,999.99")
*
y quisiera crear una nueva celda con la suma de las anteriores
oSHEET:CELL(REN,15):value:=????????
Saludos y gracias de antemano
sumar celdas, utilizo la clase tole de la siguiente forma:
oXls:=TOLEAUTO():NEW("EXCEL.APPLICATION")
oXls:WORKBOOKS:ADD()
oBOOK:=oXLS:GET("ActiveWorkBook")
oSHEET:=oXLS:GET("ActiveSheet")
*
oSHEET:CELLS(4,2):VALUE="SALDO INICIAL"
oSHEET:CELLS(4,3):VALUE="ENERO"
oSHEET:CELLS(4,4):VALUE="FEBRERO"
oSHEET:CELLS(4,5):VALUE="MARZO"
oSHEET:CELLS(4,6):VALUE="ABRIL"
oSHEET:CELLS(4,7):VALUE="MAYO"
oSHEET:CELLS(4,8):VALUE="JUNIO"
oSHEET:CELLS(4,9):VALUE="JULIO"
oSHEET:CELLS(4,10):VALUE="AGOSTO"
oSHEET:CELLS(4,11):VALUE="SEPTIEMBRE"
oSHEET:CELLS(4,12):VALUE="OCTUBRE"
oSHEET:CELLS(4,13):VALUE="NOVIEMBRE"
oSHEET:CELLS(4,14):VALUE="DICIEMBRE"
oSHEET:CELLS(4,15):VALUE="TOTAL"
*
FOR N=1 TO 15
oSHEET:CELLS(4,N):Font:Name:="ARIAL"
oSHEET:CELLS(4,N):Font:Size:=12
oSHEET:CELLS(4,N):Font:bold:=.t.
oSHEET:CELLS(4,N):BORDERS():LINESTYLE:=1
NEXT N
*
oSHEET:CELLS(REN,3):VALUE=TRANS(N01,"999,999,999.99")
oSHEET:CELLS(REN,4):VALUE=TRANS(N02,"999,999,999.99")
oSHEET:CELLS(REN,5):VALUE=TRANS(N03,"999,999,999.99")
oSHEET:CELLS(REN,6):VALUE=TRANS(N04,"999,999,999.99")
oSHEET:CELLS(REN,7):VALUE=TRANS(N05,"999,999,999.99")
oSHEET:CELLS(REN,8):VALUE=TRANS(N06,"999,999,999.99")
oSHEET:CELLS(REN,9):VALUE=TRANS(N07,"999,999,999.99")
oSHEET:CELLS(REN,10):VALUE=TRANS(N08,"999,999,999.99")
oSHEET:CELLS(REN,11):VALUE=TRANS(N09,"999,999,999.99")
oSHEET:CELLS(REN,12):VALUE=TRANS(N10,"999,999,999.99")
oSHEET:CELLS(REN,13):VALUE=TRANS(N11,"999,999,999.99")
oSHEET:CELLS(REN,14):VALUE=TRANS(N12,"999,999,999.99")
*
y quisiera crear una nueva celda con la suma de las anteriores
oSHEET:CELL(REN,15):value:=????????
Saludos y gracias de antemano