FiveTech Software tech support forums

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

Hola,

Enviame tu email y te la envio.

Saludos,

Alfonso

alfonso wrote:Hola,

Enviame tu email y te la envio.

Saludos,

Alfonso

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

Hola Erik,

Te envie un correo y me ha devuelto error.

¿Algun problema?

Saludos,
Alfonso

Hola,

Download link TExcels

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

Anser

Muchas gracias de mi parte.....

Podrian publicar algún ejemplo de como usar esta clase

saludos

david
argentina

dobfivewin wrote: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