* Suppose there is c:\yy.xls file where you want to append records starting at A20 SELECT * FROM your_table INTO ARRAY Array2Excel oExcel=Createobject("Excel.Application") oExcel.Visible=.T. oExcel.Workbooks.Open("c:\yy.xls") StartCellAddress="A20" EndCellAddress=oExcel.Range(StartCellAddress).Offset(ALEN(Array2Excel,1)-1,ALEN(Array2Excel,2)-1).Address EndCellAddress=CHRTRAN(EndCellAddress,"$","") oExcel.Range(StartCellAddress+":"+EndCellAddress).Value = ArrayPasser("Array2Excel") oExcel=null RETURN *-------------------------------------------- Procedure ArrayPasser Lparameters lcArrayName Return @&lcArrayName && for VFP7 and aboveGood Luck