| 以文本方式查看主题 - 搭建论坛 (http://bbs.diylsoft.com:8118/starforum/index.asp) -- 读者文摘 (http://bbs.diylsoft.com:8118/starforum/list.asp?boardid=10) ---- 在网上找到的文章，希望公司能借鉴！ (http://bbs.diylsoft.com:8118/starforum/dispbbs.asp?boardid=10&id=3687) |
| -- 作者：zhiguo7 -- 发布时间：2005-6-6 17:05:20 -- 在网上找到的文章，希望公司能借鉴！ 用Delphi轻松控制Excel 2K自动生成报表 -------------------------------------------------------------------------------- http://www.3our.com 2004-6-7 天极网 文/赵中凯 梅国建 摘 要：Excel是当前最流行的数据报表制作工具。本文介绍如何使用Delphi来控制Excel完成数据库与报表之间的数据交换，讨论了报表制作工程中的一些细节性问题。 数据报表作为企事业单位上报和下达的重要信息载体，随着信息化建设的不断推进，在实际的工作中得到了前所未有的应用。因此，数据报表已经成为管理信息系统中重要的一项功能，并且，由于数据的多样性和统计信息的增加，数据报表的系统实现变得越来越复杂。 Delphi是一个高效的可视化数据库管理信息系统开发工具，.但是Delphi开发环境中提供的报表控件在制作复杂报表时显得不够理想，不管是以前版本提供的Quick Report控件组，还是Delphi 7提供的Rave控件组，都不能让用户对生成的报表进行改动，且程序控制很难实现。Excel作为现代办公常用的电子表格制作工具，以它的易操作性和实用性，得到了各行业办公人员的青睐。本文根据实际应用实践，介绍利用Delphi编程控制Excel生成报表的各种方法。 Delphi控制Excel的方法 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 数据表格控制 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; 用Delphi轻松控制Excel 2K自动生成报表(2) -------------------------------------------------------------------------------- http://www.sina.com.cn 2004年06月07日 14:49 天极网 文/赵中凯 梅国建 (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; 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; 报表制作应注意的问题 (1)报表格式的选择 报表格式的选择对信息系统报表的实现方法起着决定性的影响。如果在报表的格式要求比较严格的情况下，应当采用模板的方式产生报表。由于模板在数据导入之前就已经按照标准制定好，所以只要在程序中控制模板的复制与粘贴，然后编程实现数据输入指定位置即可。而对于报表格式多变的情况，由于数据的不同，需要合并单元格或者控制边框，可以直接在程序中自动控制报表的生成。 (2)打印 对于Excel报表的打印，最好不要在程序中进行控制，因为报表往往需要签字或者进行审查，有许多报表都包含平面图或示意图，为了有效的控制打印质量，最好通过程序控制输出或显示Excel文件，以便修改；另一个重要的原因是Excel具有强大的排版功能，而这正是选择Excel导出报表的重要原因。 (3)报表时间和表头 报表时间要有用户可以控制的输出。表头的制作要在事先做好格式，控制输出时，只改动那些诸如上报单位、下达单位、负责人等数据，这样既保证了系统的效率，又不失其实用性。 结论 用Delphi控制Excel来完成数据库管理信息系统的数据报表功能，是Delphi制作复杂报表的最佳选择，因为Delphi不但能控制数据的导出与导入，而且可以完成当前Excel应用中的大部分功能。如果深入研究Visual Basic for Application(VBA)就可以制作出符合实际需要的各种Delphi控制Excel的控件。 ******************************************************************************* 在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。 首先给出通过OLE创建的一些主要代码步进行简单说明： 创建OLE对象： Var olecon: TOleContainer; Olecon:= TOleContainer.Create(self); Olecon.oleobject:= Olecon.CreateObject(\'excel.sheet\',false)； 或选择导入一个excel文件来创建OLE对象： Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false)； 最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了： Olecon.OleObject.application.CommandBars[\'Standard\'].Visible:=false; Olecon.OleObject.application.CommandBars[\'Formatting\'].Visible:=false; Olecon.OleObject.application.CommandBars[\'Reviewing\'].Visible:=false; 然后显示并激活excel表,对TOleContainer定义的对象： Olecon.show; Olecon.doverb(0); 这样基本可以了，但TOleContainer有个不好的地方，就是当你一点击其它控件是就它就失去焦点，然后就自动退出，其实并没有真的退出，只是需要你再次激活它而已，关键是当它失去焦点的时候就excel对象就不见了，可以用Timage控件把TOleContainer所在的地方有EXCEL时候的区域图片截下来骗骗用户，我们这里主要不是讲这个，就不详述了。 下面我们就开始讲Excel_TLB中的接口的常用属性和方法，主要是针对导出和设定报表格式的一些接口元素。 单元格的读写属性： olecon.OleObject.application.cells.item[1,1]; olecon.OleObject.application.cells(1,1); olecon.OleObject.application.cells[1,1].Value; 上面三种都可以对工作表的‘A1’单元进行读写。 在delphi中对单元格(集)，区域，工作表等所有对象的操作都是要Variant来实现的。 自己的程序中选定区域赋给Range: Var range,sheet:Variant; Range:= olecon.OleObject.application.Range[\'A1:C3\']; 或者： Sheet:= olecon.OleObject.application.Activesheet; Range:= olecon.OleObject.application.Range[sheet.cells[1,1],sheet.cells[3,3]]; 对上面的Range合并单元格： Range.merge; Range. FormulaR1C1:=\'合并区\';//合并后写入文本 注意以后要读合并的单元格里面的文本就是读合并区域的左上角的那个单元格的文本 在excel表中选定区域赋给range： range:=excel_grid1.OleObject.application.selection; 拆分单元格： Range.unmerge; 合并后设定单元格（集）的格式： Range.HorizontalAlignment:= xlCenter;// 文本水平居中方式 Range.VerticalAlignment:= xlCenter//文本垂直居中方式 Range.WrapText:=true;//文本自动换行 Range.Borders.LineStyle:=1//加边框 Range.Interior.ColorIndex:=39;//填充颜色为淡紫色 Range.Font.name:=\'隶书\';//字体 Range.Font.Color:=clBlue;//字体颜色 常用格式也就这些，以上这些对于单个单元格也适用。 在excel表中寻找前后上下的单元格： Var u1,u2,u3,u4,u5:Variant; U1:=olecon.oleobject.application.activecell;//获取当前格； U2:=u1.previous;//非特殊情况就是u1左边的一格； U3:=ui.next;//非特殊情况就是u2右边的一格； U4:=olecon.oleobject.application.cells[u1.cells.row-1,u1.cells.column];//非特殊情况为上面一格 U5:=olecon.oleobject.application.cells[u1.cells.row+1,u1.cells.column];//非特殊情况为下面一格 删除和插入一行和一列： Olecon.oleobject.application.rows[2].delete; Olecon.oleobject.application.columns[2].delete; Olecon.oleobject.application.rows[2].insert; Olecon.oleobject.application.columns[2].insert; 复制指定区域： Olecon.oleobject.application.range[\'A1:C3\'].copy; 从指定单元格开始粘贴： Olecon.oleobject.application.range[\'A4\'].PasteSpecial; 常用的就这些了，对delphi中server面板下的EXEL控件和创建EXCEL.Application COM对象的方式都适用。 [此贴子已经被作者于2005-6-6 17:53:17编辑过]
|
| -- 作者：积木爱好者 -- 发布时间：2005-6-6 21:39:45 -- Ding... |
| -- 作者：zhiguo7 -- 发布时间：2005-6-7 12:42:41 -- 公司目前有开发excel控件的计划吗？ |