Delphi控制Excel自动生成报表
2006-11-29 21:09
477 查看
Delphi控制Excel的方法
1 创建Excel文件
要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。
创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:
2 数据表格控制
Excel表格的控制,主要包括数据的导入、修改;单元格的合并、边框的控制;表格的复制、粘贴等。当报表格式一定的情况下,表格的复制、粘贴显得尤为重要,这样,可以先***一个文件模板,然后按照实际需要输出多页报表即可。
(1)数据的导入(importData)
(2)单元格的合并、边框的控制(lineStylecontrol)
单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。
(3)表格的复制与粘贴(copyandPaste)
3 文件的保存
文件保存是在创建文件的基础上进行的,过程saveFile说明了文件保存过程中应该注意的问题:
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; |
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; |
单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。
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; |
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; |
文件保存是在创建文件的基础上进行的,过程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; |
相关文章推荐
- Delphi控制Excel自动生成报表
- Delphi控制Excel自动生成报表
- **报表**EXCEL OUT 不能导出GRIDVIEWA自动生成的列 提示索引过界的解决办法
- 用 LotusScript 实现 Excel 报表的自动生成和操作
- oracle自动生成excel报表(时间为变量,条件含变量)
- 用VB控制EXCEL生成报表
- delphi 控制 excel,创建报表
- delphi 将F1Book生成的报表保存到Excel
- excel报表开发-- 根据datatable个数自动生成新sheet
- Azure云数据库报表自动生成Excel 并自动发送邮件实现
- 用 LotusScript 实现 Excel 报表的自动生成和操作
- C#.NET自动生成Excel图形报表
- 用VB控制EXCEL生成报表
- 用VB控制EXCEL生成报表
- Aspose.cells 用excel 模版 生成报表 Java
- 今天的成果(excel报表):200多倍的生成效率
- 利用 LotusScript 实现用 Lotus Domino 的数据生成图形化的 Excel 报表
- 今天的成果(excel报表):200多倍的生成效率
- OLE方式控制WORD生成一个文档,包括自动生成表格
- Asp.net程序中生成Excel报表