Page 1 of 1

La Clase TExcel me da un error "No está Excel..."

PostPosted: Tue Feb 28, 2006 3:25 am
by jose_murugosa
Hola,

Estoy probando los ejemplos de la clase TExcel y me da un mensaje siempre antes de hacer lo que cada ejemplo hace, el mensaje es:
"No está Excel instalado en esta PC" que se encuentra en este método de la clase:

METHOD NEW() CLASS TExcelScript
::lExcel := .T.
TRY
::oExcel := GetActiveObject( "Excel.Application" )
::oClip:=TClipBoard():New()
::oClip:Clear()
CATCH
TRY
::oExcel := CreateObject( "Excel.Application" )
::oClip:=TClipBoard():New()
::oClip:Clear()
CATCH
Alert( "No está Excel Instalado en esta Pc." ) //acá está
::lExcel := .F.
END
END
::aExcelCols := {}
RETURN( Self )

Porqué me hace este problema, siendo que luego abre Excel perfectamente y me arma la planilla?
Agradezco cualquier ayuda.

José

idem

PostPosted: Tue Feb 28, 2006 3:26 am
by jose_murugosa
A titulo informativo les digo que este problema me lo produce utilizando Windows XP y Microsoft Office 2003.

Gracias.

PostPosted: Wed Mar 01, 2006 8:02 am
by Antonio Linares
José,

Debe estar generándose algún tipo de error en la secuencia del TRY, por eso pasa a la parte CATCH. Si todo te funciona bien, prueba a modificar la clase y comentar esos avisos.

PostPosted: Sat Apr 22, 2006 6:26 am
by goosfancito
Con respecto a este tema, lo solucionaron, o simplemente sacamos la linea del CATH?

PostPosted: Sat Apr 22, 2006 11:37 am
by jose_murugosa
No se produce ese error si se tiene una ventana abierta como en los ejemplos.