如何将几个DBGRID里的内容导入同一个EXCEL表中?

原创 2002年11月04日 13:10:00

前言:

  在软件实际制作中,为节省开发成本和开发周期,一些软件人员通常会吧DBGrid中的数据直接导出到Excel表中,而先前能看到的函数仅仅只能在WorkBook的一个Sheet中导入数据,不支持多Sheet!。

单元应用:

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ActiveX, ComObj,
  Excel2000, OleServer;

测试环境:

  OS:Win2k Pro;Excel2k;Delphi6.0

源程序:  

{
功能描述:把DBGrid输出到Excel表格(支持多Sheet)
设计:CoolSlob
日期:2002-10-23
支持:CoolSlob@163.com
调用格式:CopyDbDataToExcel([DBGrid1, DBGrid2]);
}
procedure CopyDbDataToExcel(Args: array of const);
var
  iCount, jCount: Integer;
  XLApp: Variant;
  Sheet: Variant;
  I: Integer;
begin
  Screen.Cursor := crHourGlass;
  if not VarIsEmpty(XLApp) then
  begin
    XLApp.DisplayAlerts := False;
    XLApp.Quit;
    VarClear(XLApp);
  end;

  try
    XLApp := CreateOleObject('Excel.Application');
  except
    Screen.Cursor := crDefault;
    Exit;
  end;

  XLApp.WorkBooks.Add;
  XLApp.SheetsInNewWorkbook := High(Args) + 1;

  for I := Low(Args) to High(Args) do
  begin
    XLApp.WorkBooks[1].WorkSheets[I+1].Name := TDBGrid(Args[I].VObject).Name;
    Sheet := XLApp.Workbooks[1].WorkSheets[TDBGrid(Args[I].VObject).Name];
   
    if not TDBGrid(Args[I].VObject).DataSource.DataSet.Active then
    begin
      Screen.Cursor := crDefault;
      Exit;
    end;

    TDBGrid(Args[I].VObject).DataSource.DataSet.first;
    for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
      Sheet.Cells[1, iCount + 1] :=
          TDBGrid(Args[I].VObject).Columns.Items[iCount].Title.Caption;
         
    jCount := 1;
    while not TDBGrid(Args[I].VObject).DataSource.DataSet.Eof do
    begin
      for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
        Sheet.Cells[jCount + 1, iCount + 1] :=
            TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString;
           
      Inc(jCount);
      TDBGrid(Args[I].VObject).DataSource.DataSet.Next;
    end;
  end;

  XlApp.Visible := True;
  Screen.Cursor := crDefault;
end;

如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题

http://dev.csdn.net/article/53/53442.shtm如何将几个DBGRID里的内容导入同一个EXCEL表中?在软件实际制作中,为节省开发成本和开发周期,一些软件人员通常会...
  • gxgyj
  • gxgyj
  • 2005年02月26日 10:08
  • 834

如何将几个DBGRID里的内容导入同一个EXCEL表中?

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 15:58
  • 205

如何将几个DBGRID里的内容导入同一个EXCEL表中 ---来自于CoolSlob博客

  如何将几个DBGRID里的内容导入同一个EXCEL表中?前言: 在软件实际制作中,为节省开发成本和开发周期,一些软件人员通常会吧DBGrid中的数据直接导出到Excel表中,而先前能看到的函...
  • slf0205
  • slf0205
  • 2010年06月23日 17:22
  • 394

如何将excel中的数据导入到数据库

我们在实际工作中的一些时候会需要将excel中的数据导入数据库,如果你的数据量成百上千甚至更多,相信一点点ctrlc、ctrlv也不是办法,这里我们以mysql数据库为例,将excel中的数据存入数据...
  • qq_34092336
  • qq_34092336
  • 2017年09月04日 23:03
  • 676

如何将excel导入到oracle数据库中

最近在google earth上标电子围栏,然后将经纬度录入数据库中,第一次做感觉还是挺麻烦的 将google earth上面的数据保存成kml格式,看了一下就是xml文件,里面有包含经纬度的信息,...
  • zzyoucan
  • zzyoucan
  • 2013年09月28日 10:34
  • 2750

将excel表导入到MySQL数据库表中

先清理一下思路先,~~ 首先:需要把文件上传到服务器上 然后:读取excel数据列显示出来 然后:让用户选择字段的对应关系 然后:提交数据,读取字段的对应关系 最后:批量导入数据,...
  • will5451
  • will5451
  • 2016年06月22日 10:08
  • 576

将excel中的数据导入到DataTable中

需要using     using System.Data.OleDb; 如果是2007以上的excel文件需要安装AccessDatabaseEngine.exe 下面是实现过程     publi...
  • easyboot
  • easyboot
  • 2016年06月24日 13:46
  • 837

如何将多个excel中的数据导入一个excel中?多个EXCEL中格式一致

新建一个工作表,命名后保存到和与合并的N个文件同一个文件文件夹,按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 ...
  • huazhizui
  • huazhizui
  • 2012年01月30日 23:35
  • 13056

如何将Excel表格中的数据批量导入到Oracle数据库表中

工具选择    数据库 ORACLE11G    编程语言 JAVA首先是使用JAVA语言编写一个解析EXCEL文件的小代码,这里需要一个工具JXL.JAR,这是个JAR包,有了它,我们就可以轻松的把...
  • quanleilei123
  • quanleilei123
  • 2010年07月28日 12:51
  • 10670

怎样将Excel中的某一部分字段内容导入到SQL Server 2000的某个表的某些字段中

 很简单,使用opendatasource就可以实现了insert into tablenameselect * from opendatasource(Microsoft.Jet.OLEDB.4.0...
  • itzhiren
  • itzhiren
  • 2006年10月13日 14:15
  • 1691
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何将几个DBGRID里的内容导入同一个EXCEL表中?
举报原因:
原因补充:

(最多只允许输入30个字)