Hi,
I add the code to my program, but it NOT insert the line at the beginning of the row 1.

oExcel = CREATEOBJECT([Excel.Application])
oWorkbook = oExcel.Workbooks.open("C:\WTS\MID\WTS77XLS.XLS")
oExcel.Visible = .t.
oExcel.activesheet.Range("A1").value = "Client Code"
oExcel.activesheet.Range("B1").value = "Client Name"
oExcel.activesheet.Range("C1").value = "Invoice No."
oExcel.activesheet.Range("D1").value = "Amount"
lnLastRow = oExcel.activesheet.UsedRange.Rows.Count
 lnLastCol = oExcel.activesheet.UsedRange.Columns.Count
oExcel.activesheet.Range("D2:D"+TRIM(PADR(lnLastRow+1,11))).NumberFormat ='###,###,###.00' 
oExcel.activesheet.ROWS("1:1").INSERT(xlShiftDown)