FiveTech Support Forums

Pues eso.
¿ Se puede dar color a una fila con la clase TFileXLS ?

JmGarcia,

Prueba esto:

oHoja:Rows( "2:4" ):Interior:Color := RGB( 244, 249, 198)
oHoja:Cells( nRow, nCol ):Font:Bold := .T.
oHoja:Cells( nRow, nCol ):Font:Color := CLR_RED
oHoja:Rows(nRow):Interior:Color := CLR_HCYAN

Saludos

JmGarcia,

Escribe parte del codigo de como lo haces...

Saludos

JmGarcia wrote:

Code: Select all Collapse

#include "FiveWin.ch"
#include "FileXLS.ch"
function Main(cFicheroTXT)
local oFileXLS,cFichXLS:=cFicheroTXT+".xls",Indice:=0
XLS oFileXLS FILE &cFichXLS AUTOEXEC
Indice:=1
@ Indice, 1 XLS SAY "COMUN/CR-CO/CA-CO" OF oFileXLS
@ Indice, 2 XLS SAY "HORA"              OF oFileXLS
@ Indice, 3 XLS SAY "FECHADO"           OF oFileXLS
@ Indice, 4 XLS SAY "NUMERO"            OF oFileXLS
hFichero:=fopen(cFicheroTXT)
do while .not. feof(hFichero)
   cLinea:=freadline(hFichero)
   cTipo:=alltrim(right(cLinea,5))
   Indice:=Indice+1
   @ Indice, 1 XLS SAY cTipo OF oFileXLS
   @ Indice, 2 XLS SAY val(substr(cLinea,  1,8)) OF oFileXLS FORMAT "#######0"
   @ Indice, 3 XLS SAY val(substr(cLinea, 10,8)) OF oFileXLS FORMAT "#######0"
   @ Indice, 4 XLS SAY val(substr(cLinea, 19,4)) OF oFileXLS FORMAT "###0"
enddo
fclose(hFichero)
ENDXLS oFileXLS
return nil

FiveWiDi wrote:Con esta clase no puedes usar directamente FORMAT "###0", sino que primero debes declarar el formato que deseas usar:

#xcommand DEFINE XLS FORMAT <nFormat> ;
[ PICTURE <cPicture> ] ;
=> ;
<nFormat> := XLSFormat( <cPicture> )

DEFINE XLS FORMAT n4SinDecimales "###0"

y despues usar:

@ Indice, 4 XLS SAY val(substr(cLinea, 19,4)) OF oFileXLS FORMAT n4SinDecimales

siendo n4SinDecimales una variable numérica de tu función.

Saludos
Carlos G.

No uso esta clase, pero prueba asi:

oFileXLS:Get( "ActiveSheet" ):Rows( "2:4" ):Interior:Color := RGB( 244, 249, 198)

Saludos

JmGarcia wrote:

FiveWiDi wrote:Con esta clase no puedes usar directamente FORMAT "###0", sino que primero debes declarar el formato que deseas usar:

#xcommand DEFINE XLS FORMAT <nFormat> ;
[ PICTURE <cPicture> ] ;
=> ;
<nFormat> := XLSFormat( <cPicture> )

DEFINE XLS FORMAT n4SinDecimales "###0"

y despues usar:

@ Indice, 4 XLS SAY val(substr(cLinea, 19,4)) OF oFileXLS FORMAT n4SinDecimales

siendo n4SinDecimales una variable numérica de tu función.

Saludos
Carlos G.

Es que como tengo "tantos formatos" no me parecio conveniente usar variables y me funciona de esa forma que he puesto yo

Pero a parte de eso (que lo cambiare) ¿ como añado COLOR a las celdas ?

pymsoft wrote:oFileXLS:Get( "ActiveSheet" ):Rows( "2:4" ):Color := RGB( 244, 249, 198)

FiveWiDi wrote:Creo que con esta clase no puedes dar color.