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