Excel是大家都比较熟悉的表格处理软件，用它来做自由报表载体其好处有：

l          从用户角度：

载体本身具有脚本支持，公式编辑，模板支持，格式、版式设计等诸多功能，而这些功能对于大部分用户是比较熟悉的。省去了用户培训环节；多数办公用电脑都装有Office软件，所以，其输出的报表可以被任何装有Office软件的计算机浏览；

l          从开发者角度：

可以通过OLE访问，提供了大量的编程接口，几乎所有的操作都可以用程序来控制；利用宏、VBA等技术可以很轻松地编写报表设计模块。



整体思路：

程序通过OLE获取Excel的Sheet对象。遍历每个单元格，将模板中的元素以变量、表格等替换，就生成了最终报表。其中元素种类可分为变量元素、数据集元素、数据字段元素和其它标志元素。它们都是处于单元格内的包含特殊格式的字符串，格式可以自由定义，但要保证此格式不会与正文相冲突。



如：

#ValueAA#          （变量名两边加入#号，当遍历到其所在的单元格时在程序中对单元格进行相应处理）



报表功能实现：

首先新建Excel模板，如下图：







模板保存为template.xlt



现在模板有了，现在需要实现的功能就是分析此模板，将模板中的元素替换为程序中将要输出的变量或数据表。



下面我们来设计一个简单的模板分析类（TXlTemplateAnalyzer）：

公有方法：

generateReport       //套用模板生成最终报表。

registerDataSet       //在DataSet列表中新增数据集。

registerParam        //在Param列表中新增变量。

removeDataSet                  //在DataSet列表中删除数据集。

removeParam           //在Param列表中删除变量。

SetSheetObject         //设置模板的Sheet对象



私有成员变量：

FBoundLeft, FBoundRight                  //保存左右列边界

FDataSetList          //用于维护数据集列表的私有成员。

FParamList              //用于维护变量列表的的私有成员。

FExcelSheetObject //被操作模板的Sheet对象。

FCurrentRow             //当前处理的行号

FCurrentCol               //当前处理的列号



私有工具方法：

ProcessDataSetElement //处理数据集元素

getTemplateBoundary       //获取边界索引号

parsorFieldNameFromElement                 //从模板元素中提取字段名

FindParam                 //从FParamList中查找特定Name的变量

FindDataSet              //从DataSetList中查找特定Name的DataSet

IsTamplateElement           //判断是否为元素

IsDataSetFieldElement    //是否为数据字段元素

IsDataSetBeginElement   //是否为DataSet起始元素

IsControlTag              //是否为控制元素

IsParamElement      //是否为变量元素



事件：

OnParamElement    

OnDataSetOperationElement

OnControlElement

OnDataSetFieldElement

OnElement





写到这里大家可能已经知道我的用意了：其实这么多类成员中，但其核心就在于generateReport和ProcessDataSetElement这两个方法。

（以下代码只是描述性的脚本代码，在Delphi中不能编译）

generateReport:

------------------循环遍历单元格---------------------

FCurrentRow := iRow;

FCurrentCol := iCol;//保存当前正在处理的行列索引号

CellObj := FExcelSheetObject.Cells[iRow, iCol];//取当前单元格对象

CellValue := CellValue.Value;                       //取单元格内容

if IsTamplateElement(CellValue)                //判断是否为模板元素

begin

         if IsDataSetBeginElement(CellValue) then                 //判断是否为数据集开始元素

         begin

ProcessDataSetElement (CellValue);                 //处理数据集元素

         end;

         if IsParamElement then(CellValue) then            //判断是否为变量元素

                   CellObj.Value := FindParam(CellValue);   //查找变量值，填到当前单元格中

         if IsControlTag(CellValue) then

                   ………………….



end;





------------------遍历循环结束---------------------

执行到这里，报表生成完毕。



ProcessDataSetElement：

ADataSet := FindDataSet(CellValue);

for j:=0 to ADataSet.RecordCount - 1 do

begin

FExcelSheetObject.Rows[FCurrentRow + j].Delete;//将当前行删除（也就是#Table.Begin()#所在的行）

FExcelSheetObject.Rows[FCurrentRow + j].Insert;//新增行

FExcelSheetObject.Rows[FCurrentRow + j].Copy(FExcelSheetObject.Rows[FCurrentRow + 1]);

for i:= FBoundLeft to FBoundLeft do

begin

     fieldCellStr := FExcelSheetObject.Rows[FCurrentRow + j].Cell[i].Value; //获取数据字段元素

     fieldname := parsorFieldNameFromElement(fieldCellStr);                 //从元素中解析字段名

     FExcelSheetObject.Rows[FCurrentRow + j].Cell[i] := ADataSet.FieldByName(fieldname).Value; //将//相应字段的值赋入单元格

end;

ADataSet.Next;

end

FCurrentRow := FCurrentRow + j;



到这里，这个模板分析类的核心功能基本完成了，我想如果这个类的实现代码全部完成后，应该把这个类做成一个Component，并注册到Delphi的IDE中，以便以后使用。在上而提到的类的事件，是用来实时通知客户当前正在处理哪个Element和Cell，客户可以在此事件中做更进一步的特殊处理（例如将上述模板中产值小于完成计划数的单元格置为红色等等），非常灵活，但是出于代码整洁，在这里我没有加到代码中。另外在程序中还可以在报表中加入Excel的各种Chart、Shape等对象，这些留着我以后再写吧。



TXlTemplateAnalyzer类的是这样调用：

begin

1先将数据集、变量注册。

         templtAnalyzer.RegisterDataSet(DataSet1, ‘Table);

         templtAnalyzer.RegisterParam(Now, ‘Date’);

         templtAnalyzer.RegisterParam(totalQu, ‘TotalQuantity’);

         templtAnalyzer.RegisterParam(totalPlan, ‘TotalPlan’);

         templtAnalyzer.RegisterParam(totalPer, ‘TotalPercent’);

2生成报表

         templtAnalyzer.generateReport;

end;





参考文档：MSDN:Microsoft Developer Net



好了，大家不妨按我的思路试试，希望我的这篇文章能给大家带来帮助。

本人口才不好，又是初次写文档，难免会有不合适的地方，欢迎大家指正，我定会继续努力的。