Xailer forum

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

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

Ya lo he averiguado:

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

Perdona no he visto tu mensaje hasta hoy,

Te envío la clase actualizasda y con ejemplos de uso al final de la misma.

Perdona no he visto tu mensaje hasta hoy,

Te envío la clase actualizada y con ejemplos de uso al final de la misma.