Delphi控制Excel自动生成报表.docx

Delphi控制Excel自动生成报表 2004-05-27 11:35作者：赵中凯 梅国建出处：论坛责任编辑：方舟摘 要：Excel是当前最流行的数据报表制作工具。本文介绍如何使用Delphi来控制Excel完成数据库与报表之间的数据交换，讨论了报表制作工程中的一些细节性问题。关键字：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;varv:variant;sheet:variant;beginv:=createoleobject(Excel.Application);/创建OLE对象v.visible:=true;v.workbooks.add(-4167); /添加工作表:=test;sheet:=v.workbooks1.sheetstest;return v;end;2.2 数据表格控制Excel表格的控制，主要包括数据的导入、修改；单元格的合并、边框的控制；表格的复制、粘贴等。当报表格式一定的情况下，表格的复制、粘贴显得尤为重要，这样，可以先制作一个文件模板，然后按照实际需要输出多页报表即可。（1）数据的导入（importData）procedure importData;varI,j:integer;v:variant;beginv:=createExcel; /创建Excel文件testfor I:=0 to maxcolumn dobeginfor j:=0 to maxrow dov.workbooks1.sheets1.cellsI,j:=I*j; /导入数据end;end;（2）单元格的合并、边框的控制（lineStylecontrol）单元格的合并，是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制，可以仿照下面过程进行。procedure lineStylecontrol;varv,sheet,range:variant;beginv:=createExecl;sheet:= v.workbooks1.sheets1;range:=sheet.rangesheet.cells1,1,sheet.cells39,30;/选定表格range.select;range.merge; /合并单元格range.borders.linestyle:=xlcontinuous; /置边框线可见range.font.size:=9; /改变表格内文本字体大小end;（3）表格的复制与粘贴（copyandPaste）procedure copyandPaste;varv,sheet,range:variant;beginv:=createExecl;sheet:= v.workbooks1.sheets1;range:=sheet.rangesheet.cells1,1,sheet.cells39,30;range.select; /选定要复制的表格range.copy; /复制选定的表格sheet.rangesheet.cells40,1,sheet.cells40,1.select; /选择要粘贴的位置sheet.paste； /粘贴表格end;2.3 文件的保存文件保存是在创建文件的基础上进行的，过程saveFile说明了文件保存过程中应该注意的问题：procedure saveFile;varsheet,v:variant;beginv:=createExcel;if savedialog.execute thenbeginv.workbooks1.saveas(savedialog.FileName);/保存文件v.workbooks1.close; /关闭工作表v.quit; /关闭Excelv := unassigned;end;end;3 报表制作应注意的问题（1）报表格式的选择报表格式的选择对信息系统报表的实现方法起着决定性的影响。如果在报表的格式要求比较严格的情况下，应当采用模板的方式产生报表。由于模板在数据导入之前就已经按照标准制定好，所以只要在程序中控制模板的复制与粘贴，然后编程实现数据输入指定位置即可。而对于报表格式多变的情况，由于数据的不同，需要合并单元格或者控制边框，可以直接在程序中自动控制报表的生成。（2）打印对于Excel报表的打印，最好不要在程序中进行控制，因为报表往往需要签字或者进行审查，有许多报表都包含平面图或示意图，为了有效的控制打印质量，最好通过程序控制输出或显示Excel文件，以便修改；另一个重要的原因是Excel具有强大的排版功能，而这正是选择Excel导出报表的重要原因。（3）报表时间和表头报表时间要有用户可以控制的输出。表头的制作要在事先做好格式，控制输出时，只改动那些诸如上报单位、下达单位、负责人等数据，这样既保证了系统的效率，又不失其实用性。4 结论用Delphi控制Excel来完成数据库管理信息系统的数据报表功能，是Delphi制作复杂报表的最佳选择，因为Delphi不但能控制数据的导出与导入，而且可以完成当前Excel应用中的大部分功能。如果深入研究Visual Basic for Application(VBA)就可以制作出符合实际需要的各种Delphi控制Excel的控件.一个导出excel非常快的类_delphi教程 作者：网友供稿 点击：0 西部数码-全国虚拟主机10强！20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!虚拟主机可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金! unit DBGridEhToExcel;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ComCtrls, ExtCtrls, StdCtrls, Gauges, DBGridEh, ShellApi;type TTitleCell = array of array of String; /分解DBGridEh的标题 TDBGridEhTitle = class private FDBGridEh: TDBGridEh; /对应DBGridEh FColumnCount: integer; /DBGridEh列数(指visible为True的列数) FRowCount: integer; /DBGridEh多表头层数(没有多表头则层数为1) procedure SetDBGridEh(const Value: TDBGridEh); function GetTitleRow: integer; /获取DBGridEh多表头层数 function GetTitleColumn: integer; /获取DBGridEh列数 public /分解DBGridEh标题，由TitleCell二维动态数组返回 procedure GetTitleData(var TitleCell: TTitleCell); published property DBGridEh: TDBGridEh read FDBGridEh write SetDBGridEh; property ColumnCount: integer read FColumnCount; property RowCount: integer read FRowCount; end; TDBGridEhToExcel = class(TComponent) private FCol: integer; FRow: integer; FProgressForm: TForm; 进度窗体 FGauge: TGauge; 进度条 Stream: TStream; 输出文件流 FBookMark: TBookmark; FShowProgress: Boolean; 是否显示进度窗体 FDBGridEh: TDBGridEh; FBeginDate: TCaption; 开始日期 FTitleName: TCaption; Excel文件标题 FEndDate: TCaption; 结束日期 FUserName: TCaption; 制表人 FFileName: String; 保存文件名 procedure SetShowProgress(const Value: Boolean); procedure SetDBGridEh(const Value: TDBGridEh); procedure SetBeginDate(const Value: TCaption); procedure SetEndDate(const Value: TCaption); procedure SetTitleName(const Value: TCaption); procedure SetUserName(const Value: TCaption); procedure SetFileName(const Value: String); procedure IncColRow; procedure WriteBlankCell; 写空单元格 写数字单元格 procedure WriteFloatCell(const AValue: Double; const IncStatus: Boolean=True); 写整型单元格 procedure WriteIntegerCell(const AValue: Integer; const IncStatus: Boolean=True); 写字符单元格 procedure WriteStringCell(const AValue: string; const IncStatus: Boolean=True); procedure WritePrefix; procedure WriteSuffix; procedure WriteHeader; 输出Excel标题 procedure WriteTitle; 输出Excel列标题 procedure WriteDataCell; 输出数据集内容 procedure WriteFooter; 输出DBGridEh表脚 procedure SaveStream(aStream: TStream); procedure CreateProcessForm(AOwner: TComponent); 生成进度窗体 根据表格修改数据集字段顺序及字段中文标题 procedure SetDataSetCrossIndexDBGridEh; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure ExportToExcel; 输出Excel文件 published property DBGridEh: TDBGridEh read FDBGridEh write SetDBGridEh; property ShowProgress: Boolean read FShowProgress write SetShowProgress; property TitleName: TCaption read FTitleName write SetTitleName; property BeginDate: TCaption read FBeginDate write SetBeginDate; property EndDate: TCaption read FEndDate write SetEndDate; property UserName: TCaption read FUserName write SetUserName; property FileName: String read FFileName write SetFileName; end;var CXlsBof: array0.5 of Word = ($809, 8, 0, $10, 0, 0); CXlsEof: array0.1 of Word = ($0A, 00); CXlsLabel: array0.5 of Word = ($204, 0, 0, 0, 0, 0); CXlsNumber: array0.4 of Word = ($203, 14, 0, 0, 0); CXlsRk: array0.4 of Word = ($27E, 10, 0, 0, 0); CXlsBlank: array0.4 of Word = ($201, 6, 0, 0, $17);implementation TDBGridEhTitle function TDBGridEhTitle.GetTitleColumn: integer;var i, ColumnCount: integer;begin ColumnCount := 0; for i := 0 to DBGridEh.Columns.Count - 1 do begin if DBGridEh.Columnsi.Visible then Inc(ColumnCount); end; Result := ColumnCount;end;procedure TDBGridEhTitle.GetTitleData(var TitleCell: TTitleCell);var i, Row, Col: integer; Caption: String;begin FColumnCount := GetTitleColumn; FRowCount := GetTitleRow; SetLength(TitleCell,FColumnCount,FRowCount); Row := 0; for i := 0 to DBGridEh.Columns.Count - 1 do begin if DBGridEh.Columnsi.Visible then begin Col := 0; Caption := DBGridEh.Columnsi.Title.Caption; while POS(|, Caption) 0 do begin TitleCellRow,Col := Copy(Caption, 1, Pos(|,Caption)-1); Caption := Copy(Caption,Pos(|, Caption)+1, Length(Caption); Inc(Col); end; TitleCellRow, Col := Caption; Inc(Row); end; end;end;function TDBGridEhTitle.GetTitleRow: integer;var i, j: integer; MaxRow, Row: integer;begin MaxRow := 1; for i := 0 to DBGridEh.Columns.Count - 1 do begin Row := 1; for j := 0 to Length(DBGridEh.Columnsi.Title.Caption) do begin if DBGridEh.Columnsi.Title.Captionj = | then Inc(Row); end; if MaxRow Row then MaxRow := Row; end; Result := MaxRow;end;procedure TDBGridEhTitle.SetDBGridEh(const Value: TDBGridEh);begin FDBGridEh := Value;end; TDBGridEhToExcel constructor TDBGridEhToExcel.Create(AOwner: TComponent);begin inherited Create(AOwner); FShowProgress := True;end;procedure TDBGridEhToExcel.SetShowProgress(const Value: Boolean);begin FShowProgress := Value;end;procedure TDBGridEhToExcel.SetDBGridEh(const Value: TDBGridEh);begin FDBGridEh := Value;end;procedure TDBGridEhToExcel.SetBeginDate(const Value: TCaption);begin FBeginDate := Value;end;procedure TDBGridEhToExcel.SetEndDate(const Value: TCaption);begin FEndDate := Value;end;procedure TDBGridEhToExcel.SetTitleName(const Value: TCaption);begin FTitleName := Value;end;procedure TDBGridEhToExcel.SetUserName(const Value: TCaption);begin FUserName := Value;end;procedure TDBGridEhToExcel.SetFileName(const Value: String);begin FFileName := Value;end;procedure TDBGridEhToExcel.IncColRow;begin if FCol = DBGridEh.DataSource.DataSet.FieldCount - 1 then begin Inc(FRow); FCol := 0; end else Inc(FCol);end;procedure TDBGridEhToExcel.WriteBlankCell;begin CXlsBlank2 := FRow; CXlsBlank3 := FCol; Stream.WriteBuffer(CXlsBlank, SizeOf(CXlsBlank); IncColRow;end;procedure TDBGridEhToExcel.WriteFloatCell(const AValue: Double; const IncStatus: Boolean=True);begin CXlsNumber2 := FRow; CXlsNumber3 := FCol; Stream.WriteBuffer(CXlsNumber, SizeOf(CXlsNumber); Stream.WriteBuffer(AValue, 8); if IncStatus then IncColRow;end;procedure TDBGridEhToExcel.WriteIntegerCell(const AValue: Integer; const IncStatus: Boolean=True);var V: Integer;begin CXlsRk2 := FRow; CXlsRk3 := FCol; Stream.WriteBuffer(CXlsRk, SizeOf(CXlsRk); V := (AValue Shl 2) Or 2; Stream.WriteBuffer(V, 4); if IncStatus then IncColRow;end;procedure TDBGridEhToExcel.WriteStringCell(const AValue: string; const IncStatus: Boolean=True);var L: integer;begin L := Length(AValue); CXlsLabel1 := 8 + L; CXlsLabel2 := FRow; CXlsLabel3 := FCol; CXlsLabel5 := L; Stream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel); Stream.WriteBuffer(Pointer(AValue), L); if IncStatus then IncColRow;end;procedure TDBGridEhToExcel.WritePrefix;begin Stream.WriteBuffer(CXlsBof, SizeOf(CXlsBof);end;procedure TDBGridEhToExcel.WriteSuffix;begin Stream.WriteBuffer(CXlsEof, SizeOf(CXlsEof);end;procedure TDBGridEhToExcel.WriteHeader;var OpName, OpDate: String; begin /标题 FCol := 3; WriteStringCell(TitleName,False); FCol := 0; Inc(FRow); if Trim(BeginDate) then begin /开始日期 FCol := 0; WriteStringCell(BeginDate,False); FCol := 0 end; if Trim(EndDate) then begin /结束日期 FCol := 5; WriteStringCell(EndDate,False); FCol := 0; end; if (Trim(BeginDate) ) or (Trim(EndDate) ) then Inc(FRow); /制表人 OpName := 制表人： + UserName; FCol := 0; WriteStringCell(OpName,False); FCol := 0; /制表时间 OpDate := 制表时间： + DateTimeToStr(Now); FCol := 5; WriteStringCell(OpDate,False); FCol := 0; Inc(FRow); end;procedure TDBGridEhToExcel.WriteTitle;var i, j: integer; DBGridEhTitle: TDBGridEhTitle; TitleCell: TTitleCell;begin DBGridEhTitle := TDBGridEhTitle.Create; try DBGridEhTitle.DBGridEh := FDBGridEh; DBGridEhTitle.GetTitleData(TitleCell); try for i := 0 to DBGridEhTitle.RowCount - 1 do begin for j := 0 to DBGridEhTitle.ColumnCount - 1 do begin FCol := j; WriteStringCell(TitleCellj,i,False); end; Inc(FRow); end; FCol := 0; except end; finally DBGridEhTitle.Free; end;end;procedure TDBGridEhToExcel.WriteDataCell;var i: integer;begin DBGridEh.DataSource.DataSet.DisableControls; FBookMark := DBGridEh.DataSource.DataSet.GetBookmark; try DBGridEh.DataSource.DataSet.First; while not DBGridEh.DataSource.DataSet.Eof do begin for i := 0 to DBGridEh.DataSource.DataSet.FieldCount - 1 do begin if DBGridEh.DataSource.DataSet.Fieldsi.IsNull or (not DBGridEh.DataSource.DataSet.Fieldsi.Visible) then WriteBlankCell else begin case DBGridEh.DataSource.DataSet.Fieldsi.DataType of ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes: WriteIntegerCell(DBGridEh.DataSource.DataSet.Fieldsi.AsInteger); ftFloat, ftCurrency, ftBCD: WriteFloatCell(DBGridEh.DataSource.DataSet.Fieldsi.AsFloat); else if DBGridEh.DataSource.DataSet.Fieldsi Is TBlobfield then / 此类型的字段(图像等)暂无法读取显示 WriteStringCell() else WriteStringCell(DBGridEh.DataSource.DataSet.Fieldsi.AsString); end; end; end; /显示进度条进度过程 if ShowProgress then begin FGauge.Progress := DBGridEh.DataSource.DataSet.RecNo; FGauge.Refresh; end; DBGridEh.DataSource.DataSet.Next; end; finally if DBGridEh.DataSource.DataSet.BookmarkValid(FBookMark) then DBGridEh.DataSource.DataSet.GotoBookmark(FBookMark); DBGridEh.DataSource.DataSet.EnableControls; end;end;procedure TDBGridEhToExcel.WriteFooter;var i, j: integer;begin if DBGridEh.FooterRowCount = 0 then exit; FCol := 0; if DBGridEh.FooterRowCount = 1 then begin for i := 0 to DBGridEh.Columns.Count - 1 do begin if DBGridEh.Columnsi.Visible then begin WriteStringCell(DBGridEh.Columnsi.Footer.Value,False); Inc(FCol); end; end; end else if DBGridEh.FooterRowCount 1 then begin for i := 0 to DBGridEh.Columns.Count - 1 do begin if DBGridEh.Columnsi.Visible then begin for j := 0 to DBGridEh.Columnsi.Footers.Count - 1 do begin WriteStringCell(DBGridEh.Columnsi.Footersj.Value ,False); Inc(FRow); end; Inc(FCol); FRow := FRow - DBGridEh.Columnsi.Footers.Count; end; end; end; FCol := 0;end;procedure TDBGridEhToExcel.SaveStream(aStream: TStream);begin FCol := 0; FRow := 0; Stream := aStream; /输出前缀 WritePrefix; /输出表格标题 WriteHeader; /输出列标题 WriteTitle; /输出数据集内容 WriteDataCell; /输出DBGridEh表脚 WriteFooter; /输出后缀 WriteSuffix;end;procedure TDBGridEhToExcel.ExportToExcel;var FileStream: TFileStream; Msg: String;begin /如果数据集为空或没有打开则退出 if (DBGridEh.DataSource.DataSet.IsEmpty) or (not DBGridEh.DataSource.DataSet.Active) then exit; /如果保存的文件名为空则退出 if Trim(FileName) = then exit; /根据表格修改数据集字段顺序及字段中文标题 SetDataSetCrossIndexDBGridEh; Screen.Cursor := crHourGlass; try try if FileExists(FileName) then begin Msg := 已存在文件（ + FileName + ），是否覆盖？; if Application.MessageBox(PChar(Msg),提示,MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2) = IDYES then begin /删除文件 DeleteFile(FileName) end else exit; end; /显示进度窗体 if ShowProgress then CreateProcessForm(nil); FileStream := TFileStream.Create(FileName, fmCreate); try /输出文件 SaveStream(FileStream); finally FileStream.Free; end; /打开Excel文件 ShellExecute(0, Open, PChar(FileName), nil, nil, SW_SHOW); except end; finally if ShowProgress then FreeAndNil(FProgressForm); Screen.Cursor := crDefault; end;end;destructor TDBGridEhToExcel.Destroy;begin inherited Destroy;end;procedure TDBGridEhToExcel.CreateProcessForm(AOwner: TComponent);var Panel: TPanel; Prompt: TLabel; 提示的标签begin if Assigned(FProgressForm) then exit; FProgressForm := TForm.Create(AOwner); with FProgressForm do begin try Font.Name := 宋体; 设置字体 Font.Size := 9; BorderStyle := bsNone; Width := 300; Height := 100; BorderWidth := 1; Color := clBlack; Position := poScreenCenter; Panel := TPanel.Create(FProgressForm); with Panel do begin Parent := FProgressForm; Align := alClient; BevelInner := bvNone; BevelOuter := bvRaised; Caption := ; end; Prompt := TLabel.Create(Panel); with Prompt do begin Parent := Panel; A