如何在Excel中插入一行

Question

请问用TExcelApplication、TExcelWorkbook和TExcelWorkSheet如何去操作Excel，使其可以在指定位置插入一行。以下为网上给出的办法，可是根本无法运行：ExcelApplication1.ActiveSheet.Rows[2].Insert; //在第二行处插入一空行本人使用的环境为Delphi7+Office 2003。

Answer 1

可以这样处理：
如想在第I + 1 行插入一空白行
if row := i +1 then 
for j := 0 to lcol do
TempWorkSheet.Cells[row, J] := '';这样不就插入一空白行了吗？

Answer 2

樓主太小氣只有5分。
插入一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Insert;
b. ExcelApp.ActiveSheet.Columns[1].Insert;
删除一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Delete;
b. ExcelApp.ActiveSheet.Columns[1].Delete;

Answer 3

按照ghtghtmalone的方法，第i+1行的内容将会被清空，而maming2003得方法是目前网上普遍流行的方法，只可惜，Delphi7下根本无法编译。我目前最头疼的是不知如何将某一行或列作为一个对象返回。还请各位赐教。

Answer 4

不知道你想干吗？
if row := i +1 then 
for j := 0 to lcol do
TempWorkSheet.Cells[row, J] := '';
EXCEL不就是一个二维数组吗？把想插入的数据放在数组中不就可以赋值了？你想插入的值直接用下面的语句不就行了？
TempWorkSheet.Cells[row, J] := arr[rol,j];