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)