FoxPro/Visual FoxPro - POR FAVOR, AYUDA TECNICA.

Hola ... Necesito obtener datos para mi programa de otra aplicación la cual utiliza un archivo de excel para que otros programas puedan actualizarse.
Estoy ultimando una rutina pero no consigo depurar dos errores que son:
En la linea 10 : Codigo de error OLE 0x80020006: nombre desconocido.
En la linea 25: Error al leer el archivo.
Agradeceria vuestro interes.

********************************************************************************
*** Selecciono el archivo Excel

1 cImport=GETFILE("xls", 'Nombre de archivo', 'Importar',0,'Importar')

*** Cambio el nombre de las hojas por otros

2 if !Empty(cImport)
3 oExcel = Createobject("Excel.Application")
4 oExcel.Workbooks.Open(cImport)
5 N=1
6 For Each oSheet In oExcel.Sheets
7 oExcel.Sheets(N).Name='MIHOJA'+str(N,2)
8 N=N+1
9 Endfor

*** Guardo los cambios

10 oExcel.Workbooks.Save(cImport)

*** creo un cursor con todas las hojas del archivo

11 sele 4
12 create cursor Hojas (nHoja C (30))
13 For Each oSheet In oExcel.Sheets
14 insert into Hojas (nHoja) values (oSheet.Name)
15 Endfor
16 oExcel.ActiveWorkbook.Close()
17 oExcel.Quit()

*** Agrego en una tabla los datos de todas las hojas

18 sele 5
19 use costes excl
20 sele 4
22 scan
23 cual=alltrim(nHoja)
24 sele 5
25 append from (cImport) type xl5 sheet (cual)
26 endscan
27endif
****************************************************************************

En la linea 10 prueba eliminando el parametro que envia dentro de save.
oExcel.Workbooks.Save()