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
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.
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
Re: Clase TExcel de Bingen
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
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
Re: Clase TExcel de Bingen
Ya lo he averiguado:
:Say({J,2},FECHA,"@")
:Say({J,2},FECHA,"@")
Re: Clase TExcel de Bingen
Perdona no he visto tu mensaje hasta hoy,
Te envío la clase actualizasda y con ejemplos de uso al final de la misma.
Te envío la clase actualizasda y con ejemplos de uso al final de la misma.
BiSoft Desarrollo de software profesional
http://www.bisoft.es
http://www.bisoft.es
Re: Clase TExcel de Bingen
Perdona no he visto tu mensaje hasta hoy,
Te envío la clase actualizada y con ejemplos de uso al final de la misma.
Te envío la clase actualizada y con ejemplos de uso al final de la misma.
BiSoft Desarrollo de software profesional
http://www.bisoft.es
http://www.bisoft.es