>use rpt077 in 0 share >select rpt077 >EXPORT TO c:\wts\mid\wts77xls.xls TYPE XLS FIELDS lotno, cusno, cusname, itmcode, itmdisc,packing >use >oExcel = CREATEOBJECT([Excel.Application]) >oWorkbook = oExcel.Workbooks.open("C:\WTS\MID\WTS77XLS.XLS") >oExcel.Visible = .t. >oExcel.activesheet.Range("A1").value = "Lot No." >oExcel.activesheet.Range("B1").value = "Customer Code" >oExcel.activesheet.Range("C1").value = "Customer Name" >oExcel.activesheet.Range("D1").value = "Item Code" >oExcel.activesheet.Range("E1").value = "Item Desc." >oExcel.activesheet.Range("F1").value = "Packing" > >>