ObjExcel= CREATEOBJECT("Excel.Application")
with ObjExcel
     .Workbooks.open(yourfile)&& you mean book name  
      lcRange="A2"  &&starting cell
      .Range(lcRange).Select
     .Rows(TRANSFORM(.ActiveCell.row)+":"+TRANSFORM(.ActiveSheet.UsedRange.Rows.Count)).Delete  &&remove all data

     use gg
     _VFP.Datatoclip(,,3)
    .ActiveSheet.Paste()