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