请问一个用pb控制excel的有关问题

请教一个用pb控制excel的问题
oleobject oleapp
oleapp=Create OleObject
oleapp.ConnectToNewObject("excel.application") 
oleapp.Application.Visible = false
oleapp.Workbooks.Open(docname)
oleapp.worksheets("sheet1").activate
...


oleapp.Application.quit()
destroy oleapp

docname 是文件路径 
...处我想要完成对整个excel 进行处理 判断 D1至Dn的数据 若为'123' 整行删除这行

求高人指点！！

------解决方案--------------------
for i=1 to n
if oleapp.ActiveSheet().Range("D"+string(i)).Value<>'123' then return
next
oleapp.ActiveSheet().range("D1").EntireRow.Delete()