Delphi中控制Excel插入一行

V: Variant; //要定义为变体型

try
    V := CreateOLEObject('Excel.Application');//创建OLE对象
    V.Visible := false;
    V.WorkBooks.Open('EXCEL文件.xls');
    V.WorkSheets[1].Activate;
  Except
    //创建失败，没有安装EXCEL或没有安装好(有些使用绿色版)
    Exit;
  end;

第一种方法

v.workbooks[1].sheets[1].Range[v.workbooks[1].sheets[1].Cells.Item[10,1],v.workbooks[1].sheets[1].Cells.Item[10,4]].Insert(xlShiftDown,xlFormatFromLeftOrAbove);

 

第二种方法

//Range 定义为Variant型

Range := v.workbooks[1].sheets[1].Range[WorkSheetHandle.Cells.Item[10,1],v.workbooks[1].sheets[1].Cells.Item[10,4]];
  Range.rows.insert;

 

以后代码未验证。