oExcel = CREATEOBJECT([Excel.Application]) oWorkbook = oExcel.Workbooks.open("C:\WTS\MID\WTS77XLS.XLS") oExcel.Visible = .t. oExcel.activesheet.Range("A1").value = "Col. 1" oExcel.activesheet.Range("B1").value = "Col. 2" oExcel.activesheet.Range("C1").value = "Col. 3" oExcel.activesheet.Range("D1").value = "Col. 4" oExcel.activesheet.Range("E1").value = "Col. 5" lnLastRow = oExcel.activesheet.UsedRange.Rows.Count oExcel.activesheet.Range("D2:lnLastRow").value='=B2+C2'