请教,如何在delphi中操作excel对象在worksheet中插入一新的行？

Question

给你点代码，自己看吧！！
var
   MyExcel, WorkBook, Sheet: OleVariant;
   Row,Cow,i:integer;
begin 
      //create excel object  
      MyExcel := CreateOleObject('Excel.Application');
      Excel.Visible := Visible ;
      WorkBook := Excel.Workbooks.Add ;
      Sheet:= WorkBook.Sheets[1];
      //control the cells
      DataSet.First;
     while Not DataSet.Eof do
        begin
        Row:=Row+1;
        Col:=1;
        for i:=0 to DataSet.FieldCount-1 do
            begin
            Sheet.Cells(Row,Col):=DataSet.Fields[i].AsString;
               Inc(Col);
               
            end;
        DataSet.Next;
     end;
//你可不要照抄啊，大意如此，呵呵，拿大家都会的骗点分*_@

Answer 1

兄弟们，先谢谢，不过你们误解了我的意思了，我的意思是打开一已有的excel文件，在现有的行之前插入一新行，现有的行往下移：功能如实现excel中右击插入一行。