Pasar facturas a Excel

[JoseLuis]

Buenos dias
Para generar las facturas en Excel, exoy utilizando sin problemas Toleauto (oExcel := oExcel:= TOleAuto():New( "Excel.Application" )), pero ahora tengo que generar facturas de tres o cuatro mil lineas de albaranes, y se me ralentiza mucho.

Recuerdo que hace tiempo utilicé la libreria Filexls de Ramon Avendaño y era muy rápida, y aunque conservo la librería, me gustaria que alguien me indicara algún ejemplo funcional, ya que tengo muchas dudas en su utilización, por ejemplo los bordes, centrar un rango de celdas, poner un bitmap en una celda, etc.

Un saludo

[karinha]

http://fivewin.com.br/index.php?/topic/31071-filexls-f%C3%B3rmulas/&tab=comments#comment-293347

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39231&p=234119&hilit=FileXLS.LIB#p234119

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37562&p=224590&hilit=filexls&sid=68dd3d32b4d6e0a78c0b6f03c4551205&sid=d0c7bfe840ec87a366ea69a5f28f0c72#p224590

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=35800&p=213332&hilit=filexls&sid=68dd3d32b4d6e0a78c0b6f03c4551205&sid=d0c7bfe840ec87a366ea69a5f28f0c72#p213332

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35514&p=211439&hilit=filexls&sid=68dd3d32b4d6e0a78c0b6f03c4551205&sid=d0c7bfe840ec87a366ea69a5f28f0c72#p211439

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=33987&p=201148&hilit=filexls&sid=68dd3d32b4d6e0a78c0b6f03c4551205&sid=d0c7bfe840ec87a366ea69a5f28f0c72#p201148

Y mucho mas... haga una busqueda siempre.

Regards, saludos.

[JoseLuis]

Gracias Joao

He revisado los enlaces, y hay algunas cosas que me sirven, pero no veo como con la Filexls insertar un bitmap.

Con Toleauto lo hago así

Code: Select all  Expand view

     oAs:Shapes:AddPicture(Publicas:rlogo,.t.,.t.,10,5,222,80)

Pero con Filexls no se como

[karinha]

José Luis, creo que el correcto sea asi:

Code: Select all  Expand view

   oSheet:Pictures:Insert( cFile )
 

Regards, saludos.

[JoseLuis]

Buenos dias Joao

No veo la forma de integrarlo con la libreria Filexls de Ramon Avendaño

Para pasar a excel con esta libreria yo hago:

Para una fecha:
@ nFila, nCol XLS SAY "Fecha:" + DTOC( Date() ) OF oXls

Para un texto:
@ nFila, nCol XLS SAY OemToAnsi( cText ) OF oXls

Para un número, antes tengo que dar formato:
DEFINE XLS FORMAT nFormat PICTURE '#,##0.00'

Y no he visto otras formas de hacerlo

[karinha]

Buen dia José, mira se ayuda:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=33987

https://www.lawebdelprogramador.com/foros/Clipper-FiveWin/651956-FILEXLS.html

http://xbaseguru.blogspot.com/2009/04/descargar-filexlslib.html

Regards, saludos.