In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Clase TExcel de Bingen

Foro público de Xailer en español
pacoelche
Posts: 141
Joined: Tue Jul 11, 2006 10:32 am

Clase TExcel de Bingen

Postby pacoelche » Sat Nov 21, 2020 6:32 pm

Buenas tardes:

He visto que Bingen publicó hace unos años una clase para grabar ficheros Excel.

¿Alguien podría enviarme un pequeño ejemplo de su uso? Por ejemplo, como grabar un par de columnas y que cada una tenga un par de filas.

Muchas gracias anticipadas
pacoelche
Posts: 141
Joined: Tue Jul 11, 2006 10:32 am

Re: Clase TExcel de Bingen

Postby pacoelche » Sat Nov 21, 2020 11:10 pm

Trasteando ya he hecho algo, como por ejemplo:

LOCAL J, EXCEL:=SHGetFolder()+"\PRUEBA EXCEL.xlsx"
WITH OBJECT TExcel():New(self)
:NewDoc(EXCEL)
:Say({1,1},"COLUMNA 1",,clBlue,clYellow,,,,,.T.,.T.)
FOR J:=2 TO 5
:Say({J,1},J-1)
NEXT
:SaveAs(EXCEL)
:Close(EXCEL)
END WITH


He conseguido cambiar el color y negrita.

Tengo un problema con las fechas. ¿Cómo indico en el SAY que es una fecha? Ya que ahora al abrir el Excel me toma una fecha como si fuese una resta.

Gracias
pacoelche
Posts: 141
Joined: Tue Jul 11, 2006 10:32 am

Re: Clase TExcel de Bingen

Postby pacoelche » Sun Nov 22, 2020 11:49 am

Ya lo he averiguado:

:Say({J,2},FECHA,"@")

Return to “Spanish”