创建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 数据表格控制
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; |
