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;

以后代码未验证。