tXls FileXls

[Marcelo Via Giglio]

Hola a todos,
Recuerdo esta libreria txls o filexls que permitia generar archivos excel sin tener instalado el excel, necesito esta libreria u otra de similar características, estoy utilizando fwh1601 + xHarbour y bcc 5, que puedo utilizar para mi nentorno, muchas gracias por su colaboracion

Saludos

Marcelo Via

[Marcelo Via Giglio]

Gracias,

ya la consegui, ahora solo me falta recordar como funciona

muchas gracias

[Marcelo Via Giglio]

Hola a todos

Esta clase (FileXls), genera un documento con formato de Excel version 2 que NO permite ser modificado, con Ole a traves de la funcion ExcelObj() se crea un objeto Ole de Excel pero no he podido grabar la hoja de Excel creada, puedo visualiazarla, pero nocesito crearla sin visualizar, como puedo crear directamente el archivo Excel sin que se abra Excel

Disculpen por su tiempo y muchas gracias

Marcelo Via

[surGom]

Marcelo fijate este prg

Code: Select all | Expand

   DEFINE XLS FORMAT nForma1 PICTURE "##,###,##0.00"

   DEFINE XLS FONT nFont1 NAME "Arial"  ITALIC BOLD
   DEFINE XLS FONT oFont2 NAME "Arial" BOLD


   XLS oFxls File ( "Cheques.xls" ) AUTOEXEC
   XLS COL 1 WIDTH 10 OF oFxls
   XLS COL 2 WIDTH 15 OF oFxls
   XLS COL 3 WIDTH 12 OF oFxls
   XLS COL 4 WIDTH 12 OF oFxls
   XLS COL 5 WIDTH 35 OF oFxls
   XLS COL 6 WIDTH 12 OF oFxls
   XLS COL 7 WIDTH 15 OF oFxls

   cargotit( nfont1, nforma1, oFxls, geto )
   FOR z = 1 TO Len( adet )
      @linea, 1 XLS SAY Str( adet[ z, 1 ], 5 ) BORDER of oFxls                    //código del cliente
      @linea, 2 XLS SAY adet[ z, 2 ] BORDER of oFxls ALIGNAMENT ALING_CENTER
      @linea, 3 XLS SAY Transform( adet[ z, 3 ], "@d" ) BORDER of oFxls ALIGNAMENT ALING_CENTER
      @linea, 4 XLS SAY Transform( adet[ z, 4 ], "@d" ) BORDER of oFxls ALIGNAMENT ALING_CENTER
      @linea, 5 XLS SAY adet[ z, 5 ] BORDER of oFxls  ALIGNAMENT ALING_LEFT
      @linea, 6 XLS SAY aDet[ z, 6 ] BORDER of oFxls  ALIGNAMENT ALING_CENTER
      @linea, 7 XLS SAY Transform( aDet[ z, 7 ], "@e 999,999,999.99" )  BORDER of oFxls ALIGNAMENT ALING_RIGHT
      linea++
   NEXT
   @linea, 6 XLS SAY "Total" BORDER of oFxls  ALIGNAMENT ALING_CENTER
   @linea, 7 XLS SAY Transform( ntotal, "@e 999,999,999.99" )  BORDER of oFxls ALIGNAMENT ALING_RIGHT

   msginfo( "Archivo creado con éxito", "Aceptado" )
   XLS PAGE BREAK At ( linea + 2 ) OF oFxls
   SET XLS TO DISPLAY NO GRIDLINES OF oFxls

   ENDXLS oFxls
   
   

RETURN NIL
STATIC FUNCTION cargotit( nfont1, nforma1, oFxls, geto )

   @linea, 3 XLS SAY ( "Listado de cheque sin depositar hasta el " + DToC( geto ) ) FONT nFont1 OF oFxls  ALIGNAMENT ALING_CENTER
   //@(linea + 1),1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   linea++
   linea++

   @linea, 1 XLS SAY "CÓDIGO" FONT nFont1 OF oFxls BORDER BORDER_UP ALIGNAMENT ALING_CENTER
   @( linea + 1 ), 1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   @linea, 2 XLS SAY "CUIT" FONT nFont1 OF oFxls BORDER BORDER_UP ALIGNAMENT ALING_CENTER
   @( linea + 1 ), 1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   @linea, 3 XLS SAY "INGRESO" FONT nFont1 OF oFxls BORDER BORDER_UP ALIGNAMENT ALING_CENTER
   @( linea + 1 ), 1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   @linea, 4 XLS SAY "DEPÓSITO" FONT nFont1 OF oFxls BORDER BORDER_UP ALIGNAMENT ALING_CENTER
   @( linea + 1 ), 1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   @linea, 5 XLS SAY "BANCO" FONT nFont1 OF oFxls BORDER BORDER_UP ALIGNAMENT ALING_CENTER
   @( linea + 1 ), 1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   @linea, 6 XLS SAY "NÚMERO" FONT nFont1 OF oFxls BORDER BORDER_UP ALIGNAMENT ALING_CENTER
   @( linea + 1 ), 1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   @linea, 7 XLS SAY "IMPORTE" FONT nFont1 OF oFxls BORDER BORDER_UP ALIGNAMENT ALING_CENTER
   @( linea + 1 ), 1 XLS SAY  ""  FONT nFont1 OF oFxls BORDER BORDER_DOWN
   linea++

RETURN NIL

[surGom]

Marcelo le quitas el AUTOEXEC, y no lo muestra

Luis

[Marcelo Via Giglio]

Luis,

muchas gracias

Saludos Marcelo