oE=CREATEOBJECT("Excel.application")
with oE
.Workbooks.Open("G:\我的文档\temp\导出备足字段.xls")
.Visible = .T.

删除第 8 行 
.Rows("8:8").Select
.Selection.Delete(-4162)

 删除第 4 行 
.Rows("4:4").Select
.Selection.Delete(-4162)
endwith

eole=CREATEOBJECT("Excel.application")
eole.Workbooks.Open("G:\我的文档\temp\导出备足字段.xls")
eole.Visible = .T.

*删除第三行
eole.ActiveSheet.Rows[3].Delete