lcFile='yourfile.xls'
Erase (Forceext(lcFile,'xxx'))
ox=Createobject('excel.application')
owb=ox.Workbooks.Open(lcFile)
lcFile=Forceext(lcFile,'xxx')
ox.DisplayAlerts= .F.
owb.SaveAs(lcFile,39)
owb.close()
owb=.null.
ox=.null.
Release owb
Release ox
Close Databases all
Create table yourtable...
Append From (lcFile) xls
Erase (lcFile)