Clase oExcel de Vicktor

[Moises Leon]

Hola a todos
Estoy tratando de hacer trabajar la clase de Vicktor para el manejo de archivos de Excel en Harbour y no he logrado hacer funcionar este Metodo que es para abrir el archivo:
METHOD Open( cFilexls ) CLASS TExcelScript
::cFile := cFilexls
::oExcel:WorkBooks:Open( ::cFile )
::oBook := ::oExcel:Get( "ActiveWorkBook" ) // A partir de aqui marca error
::oSheet := ::oExcel:Get( "ActiveSheet" )
::oWindow := ::oExcel:Get( "ActiveWindow" )
::oShape := ::oSheet:Get( "Shapes" )
::cFont := "Arial"
::nSize := 10
::lBold := .F.
::lItalic := .F.
::lUnderLine := .F.
::nAlign := 1
::lDefault := .F.
::lOpen := .T.
::nFormat := ::oBook:Get("FileFormat")
::SetPos("A1")
::GetCell()
RETURN Self
Este es el metodo New() (aqui no me manda error):
METHOD NEW() CLASS TExcelScript
::lExcel := .T.
#IFDEF __XHARBOUR__
TRY
::oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
::oExcel := CreateObject( "Excel.Application" )
CATCH
Alert( "No está Excel Instalado en está Pc." )
::lExcel := .F.
END
END
#ELSE
::oExcel := TOleAuto():New( "Excel.Application" )
IF ::oExcel:hObj == 0
Alert( "No está Excel Instalado en está Pc." )
::lExcel := .F.
ENDIF
#ENDIF
::oClip:=TClipBoard():New()
::oClip:Empty()
::aExcelCols := {}
RETURN( Self )
Espero me puedan ayudar a hacerlo funcionar.
Gracias y saludos
Moises Leon
--