La Clase TExcel me da un error "No está Excel..."
Posted: Tue Feb 28, 2006 3:25 am
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é
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é