关键字：Delphi，Excel，报表

　　1 引言

　　数据报表作为企事业单位上报和下达的重要信息载体，随着信息化建设的不断推进，在实际的工作中得到了前所未有的应用。因此，数据报表已经成为管理信息系统中重要的一项功能，并且，由于数据的多样性和统计信息的增加，数据报表的系统实现变得越来越复杂。

　　Delphi是一个高效的可视化数据库管理信息系统开发工具，.但是Delphi开发环境中提供的报表控件在制作复杂报表时显得不够理想，不管是以前版本提供的Quick Report控件组，还是Delphi 7提供的Rave控件组，都不能让用户对生成的报表进行改动，且程序控制很难实现。Excel作为现代办公常用的电子表格制作工具，以它的易操作性和实用性，得到了各行业办公人员的青睐。本文根据实际应用实践，介绍利用Delphi编程控制Excel生成报表的各种方法。

　　2 Delphi控制Excel的方法

　　2.1 创建Excel文件

　　要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”（in-place activation）。
创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示：

function createExcel:variant;
var
　v:variant;
　sheet:variant;
begin
　v:=createoleobject(Excel.Application);//创建OLE对象
　v.visible:=true;
　v.workbooks.add(-4167); //添加工作表
　v.workbooks[1].sheets[1].name:=test;
　sheet:=v.workbooks[1].sheets[test];
　return v;
end;

　　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;

　　2.3 文件的保存

　　文件保存是在创建文件的基础上进行的，过程saveFile说明了文件保存过程中应该注意的问题：

procedure saveFile;
var
　sheet,v:variant;
begin
　v:=createExcel;
　if savedialog.execute then
　begin
　　v.workbooks[1].saveas(savedialog.FileName);//保存文件
　　v.workbooks[1].close; //关闭工作表
　　v.quit; //关闭Excel
　　v := unassigned;
　end;
end;

　　3 报表制作应注意的问题

　　（1）报表格式的选择

　　报表格式的选择对信息系统报表的实现方法起着决定性的影响。如果在报表的格式要求比较严格的情况下，应当采用模板的方式产生报表。由于模板在数据导入之前就已经按照标准制定好，所以只要在程序中控制模板的复制与粘贴，然后编程实现数据输入指定位置即可。而对于报表格式多变的情况，由于数据的不同，需要合并单元格或者控制边框，可以直接在程序中自动控制报表的生成。
<