将DBGrid的数据导出到Excel文件保存

最新推荐文章于 2024-06-07 01:11:49 发布
最新推荐文章于 2024-06-07 01:11:49 发布
阅读量5.9k 收藏 13
点赞数 1
分类专栏： Delphi编程 文章标签： excel button integer delphi google null
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/suiyunonghen/article/details/4207564
版权
本文介绍了如何在Delphi项目中将DBGrid中的数据导出到Excel文件，并进行了功能优化，包括进度提示、用户自定义每页数据量、表名设置和导出过程中的取消操作。
摘要由CSDN通过智能技术生成

近来一段时间忙的慌，接了个帮人升级系统的小单子。其中涉及到将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
最低0.47元/天 解锁文章
不得闲
关注
  • 1
    点赞
  • 踩
  • 13
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
专栏目录
DBGridEh导出到Excel
六十五度刚好的博客
03-05 227
【代码】【无标题】
EHLIB_Dataexport.rar_EhLib_delphi excel_excel dbgrid_数据导出显示
07-14
应用Ehlib导出显示数据的源代码，一直以来delphi配合Ehlib是非常好的数据库编程排档，但是DBGRID输出到EXCEL等格式却是十分麻烦的事情。此代码应用EHLIB自身功能可直接输出各类排版格式。应用十分简单。
delphi excel
dkopg24406的专栏
08-13 153
dbgrid数据导出为excel uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject); var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant; beg...
Delphi 把CxGrid中的数据导出到Excel
最新发布
2301_80849678的博客
06-07 339
使用CxGrid自带的方法。
对.NET中导出数据到EXCEL的几种方法探讨 C1TrueDBGrid
liyingju的专栏
09-10 2678
最近在做一个报表系统的时候，需要把DATASET中的数据导到EXCEL当中，于是在网上找了一遍，发现了好几种方法，本来以为应该差不多，但后来经过一一试用后，发现在性能上真的差别很大，现在就介绍一下，同时有不对的希望可以指正： 1． 原理：利用office组件把dataset中的数据填充到excel文件当中。这里我不贴出全部代码了，只把关键部分贴出来：         ///         ///
delphi cxgrid 导出excel 包含图片_Excel图片百宝箱，在Excel中批量插入图片、导出图片、批量生成二维码、条形码等...
weixin_39785723的博客
11-17 444
图片百宝箱4.1用于在Excel中批量插入图片、批量导出图片，批量生成二维码和条形码等，支持Excel 2007、2010、2013、2016和2019，也支持WPS。在Excel中批量插入图片、二维码https://www.zhihu.com/video/1151934442514931712具体功能 1.批量导入图片：在工作表中创建指定路径下的所有图片的目录，支持四种图片格式，可对子文件夹中...
delphi导出Excel
唐林的专栏
10-15 2002
delphi导出EXCEL unit Unit2; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DB, ADODB, Grids, DBGrids, RzDBGrid, StdCtrls, ExtCtrls; type   TForm2
把DBGRID输出到EXcel表格.zip_DBGrid导出到Excel表格_dbgrid_dephi_excel输出
09-23
总的来说，将DBGrid数据导出到Excel是Delphi开发中常见的需求，通过理解如何操作DBGrid和Excel对象，或者利用第三方库，可以轻松完成这个任务。在实际项目中，根据具体的需求和环境，选择合适的方法来实现数据导出，...
Delphi DbGrid导出到Excel
12-12
以下是一个简化的示例代码片段，演示了如何将DbGrid数据导出到Excel的基本流程： ```delphi uses ComObj; var App: Variant; Workbook, Worksheet: Variant; DataSource: TDataSource; Table: TTable; I, J:...
Delphi DBGRID数据导出 Excel 文件的方法
01-07
在Delphi编程环境中，将DBGrid中的数据导出到Excel文件是一个常见的需求，这有助于数据的备份、分析或与其他系统交换信息。...遵循这些说明，你应该能够顺利地将Delphi的DBGrid数据导出到Excel文件。
怎样把DBGrid的内容导出到Excel
10-15
void __fastcall TPhoneForm::SelectButtonClick(TObject *Sender) { 　　AnsiString StrDate, ExName;//存放日期用于sheet 　　AnsiString Datatem,phone1="拨号";//临时存放数据库的字段值 　　int i,j; 　　//查询所需的数据 　　PhoneADOQuery->Close(); 　　PhoneADOQuery->Parameters->ParamByName("date1")->Value=PhoneMaskEdit1->Text; 　　PhoneADOQuery->Parameters->ParamByName("date2")->Value=PhoneMaskEdit2->Text; 　　PhoneADOQuery->Active=true; 　　//新建一个EXCEL 　　Ex = Variant::CreateObject("Excel.Application"); 　　Ex.OlePropertyGet("workbooks").OleFunction("Add", 6); 　　Wb = Ex.OlePropertyGet("ActiveWorkBook"); 　　Sh = Wb.OlePropertyGet("ActiveSheet"); 　　Ex.OlePropertySet("Visible", true); 　　//给sheet以日期重命名, 　　StrDate=DateToStr(Date()); 　　Sh.OlePropertySet("Name", StrDate.c_str()); 　　//给EXCEL输入数据 　　for (j=0;j<PhoneADOQuery->FieldCount;j++) 　 { 　 　　 Datatem=PhoneADOQuery->Fields->Fields[j]->FieldName; 　 　　 Sh.OlePropertyGet("Cells", 1, j+1).OlePropertySet("Value", Datatem.c_str()); 　 } 　　PhoneADOQuery->First(); 　　for (i=0; i<PhoneADOQuery->RecordCount; i++) 　　{ 　 for (j=0;j<PhoneADOQuery->FieldCount;j++) 　 { 　 　　 Datatem=PhoneADOQuery->Fields->Fields[j]->AsString; 　 　　 Sh.OlePropertyGet("Cells", i+2, j+1).OlePropertySet("Value", Datatem.c_str()); 　 　　 if (phone1==PhoneADOQuery->Fields->Fields[j]->FieldName) 　 　 {Sh.OlePropertyGet("Cells", i+2, j+1).OlePropertySet("NumberFormatLocal", "0_ ");//设置单元格格式为数值格式 } 　 } 　 PhoneADOQuery->Next(); 　　} 　　//保存EXCEL并退出 　　ExName=GetCurrentDir()+"\\"+DateToStr(Date())+".xls"; 　　Wb.OleFunction("SaveAs", ExName.c_str()); 　　Wb.OleFunction("Close"); 　　Ex.OleFunction ("Quit"); 　　Ex = Unassigned; }
将DBGrid中的数据快速导出到Excel的控件
01-07
发布原因：在网上找了很久也没找到个好用的，不是慢，就是要依赖Excel(必须按装),又找呀找，才找到一个http://blog.csdn.net/xiangding/archive/2003/10/27/16918.aspx,但试了一下，不能用，不知是我用法不对还是本身有问题（由于没有给出使用示例），后来找到http://developer.51cto.com/art/200510/7494.htm这个不错，但他又让我装ehlid,不爽，所以对其做了修改，其它也就是去了个加页脚的地方，很爽，有进度条，导完后如果按安装了Excel则直接打开，如果没有的话就不管了，自已想办法打开吧！特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、不需安装组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn1Click(Sender: TObject);var DBGridToExcel: TDBGridToExcel; ExcelFileName: string;begin DBGridToExcel := TDBGridToExcel.Create(nil); try DBGridToExcel.TitleName := '入网车辆统计报表'; DBGridToExcel.BeginDate := '开始日期：2005-07-01'; DBGridToExcel.EndDate := '结束日期：2005-07-18'; DBGridToExcel.UserName := '系统管理员'; DBGridToExcel.DBGrid := dbgrd1; DBGridToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridToExcel.Open := False; DBGridToExcel.ExportToExcel; finally DBGridToExcel.Free; end;end;
从DBGrid导出到Excel表格 4种方法
09-04
从DBGrid导出到Excel表格 4种方法
Delphi中导出到Excel的程序例子： DBGridToExcel
10-03
Delphi中导出到Excel的程序例子： DBGridToExcel， 速度很快，试过 2 万条的数据导出， 没试过更多的数据导出，速度应该也会很快， 学习它绝对有用 ！！！
比较快速的将DBGridEh中的数据导出到Excel中
01-07
特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;
dbgrid 和 dbgrideh 多表头 导出到 excel
07-29
本文将详细探讨`DBGrid`、`DBGridEh`以及如何将它们的数据导出到Excel，特别是在处理多表头时的实现策略。 `DBGrid`是Delphi自带的标准组件，它与`TDataSource`和`TDataSet`等组件配合，可以轻松地显示数据库中的...
把CSV文件在DBgrid中显示及导出到Excel文件中.rar_VB 读取csv文件数据_VB读取excel_csv_csv
09-24
本教程将详细介绍如何在VB中读取CSV文件并将数据在DBGrid控件中显示，同时也会讲解如何将这些数据导出到Excel文件。 首先，我们需要了解VB中如何读取CSV文件。这通常涉及到使用`OpenTextFileReader`函数来打开和...
Delphi从DBgrid导出Excel
jjpweb的专栏
06-21 1886
procedure TDMx.DbGrid2Xls(dbgrd: TDBGrid; fileName: string);var  Xls: Variant;  I, L, J: Integer;begin  if LowerCase(RightStr(fileName, 4)) &lt;&gt; '.xls' then    fileName := fileName + '.xls';  try ...
DBGrid导出Excel教程：多Sheet支持与步骤详解
本文档介绍了一个实用的程序，旨在帮助用户将Delphi中的DBGrid组件数据导出到Excel表格，支持多sheet功能。该程序名为"CopyDbDataToExcel"，并使用了ComObj单元来操作Microsoft Excel应用程序。 **功能描述与调用...
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值