Alguien me puede facilitar la clase texcels ?

[Erick Almanza]

Hola amigos del foro

Por favor me puede facilitar la clase texcelscript

Trate de bajarla de utilidades, pero hay un problema con el link


Gracias,

Saludos,

erick
FWH 8.6, XHARBOUR, BCC55

[alfonso]

Hola,

Enviame tu email y te la envio.

Saludos,

Alfonso

[Erick Almanza]

Hola,

Enviame tu email y te la envio.

Saludos,

Alfonso

Gracias Alonso por contestar prontamente
Mi correo es dicoms@gmail.com

[alfonso]

Hola Erik,

Te envie un correo y me ha devuelto error.

¿Algun problema?

Saludos,
Alfonso

[anserkk]

Hola,

Download link TExcels

http://rapidshare.com/files/214410192/Texcels.zip

Anser

[dobfivewin]

Muchas gracias de mi parte.....

Podrian publicar algún ejemplo de como usar esta clase

saludos

david
argentina

[Erick Almanza]

Muchas gracias de mi parte.....

Podrian publicar algún ejemplo de como usar esta clase

saludos

david
argentina

ejemplo 1
FUNCTION Test()
LOCAL cOrigen := cFilePath( GetModuleFileName( GetInstance() )) + "browse.xls"
LOCAL i
oExcel := TExcelScript():New()
** oExcel:add( )
oExcel:Open( cOrigen )


oExcel:visualizar(.T.)
FOR i := 1 TO 4
oExcel:AutoFit( i )
NEXT
oExcel:SetPrintArea("A1:D20")
oExcel:Margins( 0 , 50 )
oExcel:Headers( 1 , "Titulo Superior" )
oExcel:Footers( 2 , "Footer Izquiedo con numero de paginas..."+"&P" )
oExcel:Zoom( 110 ) // Ajuste al 110% de tamaño de la Hoja
oExcel:say( 20,20, "AGREGAR TEXTO ")
oExcel:lCenterH( .T. )
oExcel:lCenterV( .T. )
oExcel:SetLandScape()
oExcel:SetPage( 1 ) // Papel Tamaño Carta
oExcel:Save( )
RETURN ( .T. )

EXIT PROCEDURE Cerrar()
oExcel:End(.F.) ; oExcel := NIL
RETURN