Xailer & OZ Software

Hola
Buena Noche
a Todos.
Requiero pasar de excel a dbf
uso esta rutina, pero marca error.
TOLEAUTO:OPEN(0)
Error excel.Application:WORKBOOKS/9 No se puede asignar la propiedad Open de la clase Workbooks.: OPEN
Argumentos: ( [ 1] = Tipo: C Valor: prueba.xls)
METHOD EtoDbf( oSender, oMenu ) CLASS TForm1
LOCAL oexcel, oHoja, nRows, nCols, cBuffer, xValue
LOCAL TCampos:={}, nRow, nCol
oexcel := TOleAuto():New( "excel.Application" )
oexcel:WorkBooks:Open("prueba.xls") // En esta lí­nea
oHoja := oexcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
USE prueba.dbf
FOR nRow := 2 TO nRows
cBuffer := ""
APPEND BLANK
FOR nCol := 1 TO nCols
xValue := oHoja:Cells(nRow, nCol):Value
FIELDPUT(nCol, xValue)
NEXT
NEXT
oexcel:Quit()
oHoja:End()
RETURN Nil
Me pueden Ayudar por favor.
Saludos y Gracias...

Hugo,
> oexcel:WorkBooks:Open("prueba.xls") // En esta lí­nea
¿Has probado con la ruta completa?
Saludos,
José Lalí­n

Hola José Lalin
Ya Funciono, Muchas Gracias..
Solamente me marca error en esta linea.
oHoja:End()
TOLEAUTO:END(0)
Error 2987628/6 DISP_E_UNKNOWNNAME: END
Argumentos: ()
Le quito esa linea y funciona bien.
Te agradezco tu amable atención.
Saludos y Gracias....