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