UNA DE EXCEL

[Marco Augusto]

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

[Manuel Valdenebro]

Marcos,

Todas las fórmulas se ponen entrecomilladas:


oSHEET:CELL(REN,15):value:="=@SUMA( B5:B" + LTRIM(STR(REN)) + ")"

[Marco Augusto]

MUCHAS GRACIAS
FUNCIONO PERFECTO

[Vikthor]

Solo para rizar el rizo, puedes usar la configuración local del Excel que tenga instalado.

Code: Select all

METHOD Formula( nRow , nCol , cValue ) CLASS TExcelScript // [ Vikthor ]
   #IFDEF __XHARBOUR__
      TRY
      // ::oSheet:Cells( nRow , nCol ):Formula:=cValue
         ::oSheet:Cells( nRow , nCol ):FormulaLocal:=cValue
      CATCH
         MsgStop( "La formula no es correcta "+cValue , "Aviso al usuario")
      END
	#ELSE
       ::oSheet:Cells( nRow , nCol ):FormulaLocal:=cValue
	#ENDIF
RETURN( Nil )

[Miguel Salas]

hay forma de sustituir los a,b,c, por 1,2,3 como en la filexls?
saludos cordiales