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
Gracias,
ya la consegui, ahora solo me falta recordar como funciona
muchas gracias
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
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 NILMarcelo le quitas el AUTOEXEC, y no lo muestra
Luis
Luis,
muchas gracias
Saludos Marcelo