excel问题...

wkBook:=Excelapp.WorkBooks.Open(sebox.Items.Strings  [cu_file],EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);         for cu_sheet:=1 to wkbook.Worksheets.Count do
           begin
            wkSheet:=wkBook.Sheets[cu_sheet] as _WorkSheet;
            wksheet.Cells.SpecialCells (xlCellTypeLastCell,Emptyparam).activate;
             for cu_row:=7 to excelapp.ActiveCell.Row do
               if trim(wksheet.cells.item[cu_row,4])<>'' then
                  showmessage(wksheet.cells.item[cu_row,4])
                  else
                  <.................................>
                   end;
  以上<........>的代码想实现以下功能:删除或隐藏当前循环到的行....
  excelapp为Texcelapplication对像,wkbook,wksheet均为Variant类型!
  接触VBA很少,DELPHI又没帮助,呵呵,各位见笑了...