如何在Excel中插入一行 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061221143745213.html
请问用TExcelApplication、TExcelWorkbook和TExcelWorkSheet如何去操作Excel,使其可以在指定位置插入一行。以下为网上给出的办法,可是根本无法运行:
ExcelApplication1.ActiveSheet.Rows[2].Insert; //在第二行处插入一空行
本人使用的环境为Delphi7+Office 2003。
可以这样处理:
如想在第I + 1 行插入一空白行
if row := i +1 then
for j := 0 to lcol do
TempWorkSheet.Cells[row, J] := '';
这样不就插入一空白行了吗?
樓主太小氣。。。只有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;
按照ghtghtmalone的方法,第i+1行的内容将会被清空,而maming2003得方法是目前网上普遍流行的方法,只可惜,Delphi7下根本无法编译。我目前最头疼的是不知如何将某一行或列作为一个对象返回。还请各位赐教。
不知道你想干吗?
if row := i +1 then
for j := 0 to lcol do
TempWorkSheet.Cells[row, J] := '';
EXCEL不就是一个二维数组吗?
把想插入的数据放在数组中不就可以赋值了?
你想插入的值直接用下面的语句不就行了?
TempWorkSheet.Cells[row, J] := arr[rol,j];