FoxPro/Visual FoxPro - CAMBIAR NOMBRES DE HOJAS EXCEL ...

Intento cambiar los nombres de las Hojas de calculo de un archivo Excel por otros, pero no me funiona .....
¿Donde me estoy equivocando?

*****************************************************
oExcel = Createobject("Excel.Application")
oExcel.Workbooks.Open(cImport)
N=1
For Each oSheet In oExcel.Sheets
oSheet.Name.SaveAs('HOJA'+str(N,2))
N=N+1
Endfor
****************************************************

Por logica Save As significa grabar como y lo que te hace es una copia, no lo renombra. Chequea bien el objecto workbooks para ver si puedes borrar en anterior luego de un save as
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_wrcore/html/wrgrfexcelworkbookobject.asp

Debes hacerlo así ...

oE = CreateObject('Excel.Application')
oE.Workbooks.Add
oE.Sheets(1).Name = "NombreHoja"
oE.Visible = .T.

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia