近来一段时间忙的慌,接了个帮人升级系统的小单子。其中涉及到将DbGrid的数据转到Excel文件并保存的功能,其实本身倒也不难。只是有些麻烦。想想这种功能,肯定有先人已经写好的现成东西直接拿过来用就应该OK了。于是Google一番,果然有很多类似的例子代码,俺在盒子上找到了和俺的需求相近的一个代码DbGrid2Excel这个代码。他那个写的确实不错,但是有些地方也还是不能尽如人意的哈,于是就在他的代码上修改了下,同时新增加了进度提示的窗口,导出时能随时取消的功能。分页方面不再固定死了,而是由用户规定一个表中最多能存放多少条数据。同时增加表名称的设置。呵呵,废话也不多说,直接贴代码吧
DelphiCode:
(* 原作者: iamdream(delphi盒子) 修改: 不得闲 功能: 将DbGrid数据保存到Excel 参数: Grid指定表格 FileName指定要保存的文件名 MaxPageRowCount指定一页最多的支持行数 ShowProgress 指定是否显示进度条 用法: SaveDbGridAsExcel(DBGrid1,'C:/2.xls','表测试',2000); *) procedure SaveDbGridAsExcel(Grid: TDBGrid;const FileName,title: string; const MaxPageRowCount: Integer = 65535;const ShowProgress: Boolean = True); const MAX_VAR_ONCE = 1000; //一次导出的条数 var //返回导出记录条数 Excel, varCells: Variant; MySheet, MyCells, Cell1, Cell2, Range: OleVariant; iRow, iCol, iSheetIdx, iVarCount, iCurRow: integer; CurPos: TBookmark; ProgressForm: TForm; Prompt: TLabel; progressBar: TProgressBar; Panel : TPanel; Button : TButton; procedure ReSetObjEvent(OldEventAddr: pointer;NewEventValue: pointer;ReSetObject: TObject); begin TMethod(OldEventAddr^).Code := NewEventValue; TMethod(OldEventAddr^).Data := ReSetObject; end; procedure ButtonClick(BtnObject: TObject;Sender: TObject); begin TComponent(BtnObject).Tag := Integer(MessageBox(Application.Handle, '真的要终止数据的导出吗?','确认', MB_OKCANCEL + MB_ICONIN |