FoxPro/Visual FoxPro - EXCEL a DBF

AMIGOS DE LA WEB TENGO UN PROYECTO EN VFP-7
NECESITO ESTAR ACTUALIZANDO UNA TABLA, PASANDO INFORMACION DE EXCEL A LA TABLA DBF, MI CODIGO ES EL SIGUIENTE:

LOCAL oExcel, lFilaDatos, iFila, iColumna, cFile
ifila=1
iColumna=1
FilaDatos=.T.
oExcel = CREATEOBJECT("Excel.Application")
cFile="c:\LIBRO1.xls"
oExcel.workbooks.OPEN(cFile)
DO WHILE FilaDatos
SELEC tabla
IF VARTYPE(oExcel.Cells(ifila,1).VALUE)=""
INSERT INTO t_comensales(codigo, nombre) VALUES (oExcel.Cells(ifila,1).VALUE,oExcel.Cells(ifila,2).VALUE)
ifila=ifila+1
ELSE
FilaDatos=.F.
ENDIF
ENDDO

NOTA : LO ESPECIAL DE ESTE CODIGO QUE FUNCIONA Y LUEGO NO, Y ALTERA LA HOJA DE EXCEL PONIENDOLA EN SOLO LECTURA Y DESPUES YA NO FUNCIONA, OJALA PUEDAN AYUDARME.

Cuando no uses mas el objeto excel tenes que poner

oExcel.Quit

por eso te queda como solo lectura