>lcFile='c:\mypath\myfile.xls' && remember full path! >Erase (Forceext(lcFile,'xxx')) && Just in case >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 >Select yourtable >append from (lcFile) xls>
>>APPEND FROM myfile.xls TYPE XL8 >>>>
>lcFile='c:\mypath\myfile.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 >append from (lcFile) xls