>>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)