Delphi控制Excel自动生成报表

　　2.2 数据表格控制

　　Excel表格的控制，主要包括数据的导入、修改；单元格的合并、边框的控制；表格的复制、粘贴等。当报表格式一定的情况下，表格的复制、粘贴显得尤为重要，这样，可以先制作一个文件模板，然后按照实际需要输出多页报表即可。

　　（1）数据的导入（importData）

　　procedure importData;
var
　 I,j:integer;
　 v:variant;
begin
　 v:=createExcel; //创建Excel文件test
　 for I:=0 to maxcolumn do
　　 begin
　　　 for j:=0 to maxrow do
　　　　 v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据
　　　 end;
　 end;

　　（2）单元格的合并、边框的控制（lineStylecontrol）

　　单元格的合并，是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制，可以仿照下面过程进行。

　　procedure lineStylecontrol;
var
　 v,sheet,range:variant;
begin
　 v:=createExecl;
　 sheet:= v.workbooks[1].sheets[1];
　 range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格
　 range.select;
　 range.merge; //合并单元格
　 range.borders.linestyle:=xlcontinuous; //置边框线可见
　 range.font.size:=9; //改变表格内文本字体大小
end;

　　（3）表格的复制与粘贴（copyandPaste）

　　procedure copyandPaste;
var
　 v,sheet,range:variant;
begin
　 v:=createExecl;
　 sheet:= v.workbooks[1].sheets[1];
　 range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];
　 range.select; //选定要复制的表格
　 range.copy; //复制选定的表格
　 sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置
　 sheet.paste； //粘贴表格
end;