>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' > >You could do it:
oExcel.activesheet.Range("D2:D"+ltrim(str(m.lnLastRow))).value
with oExcel.activesheet .Range( .Cells( 2, 4), .Cells( m.lnLastRow, 4) ).value = '=B2+C2' endwithCetin