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

原创 2005年02月26日 10:08:00

http://dev.csdn.net/article/53/53442.shtm
如何将几个DBGRID里的内容导入同一个EXCEL表中?
在软件实际制作中,为节省开发成本和开发周期,一些软件人员通常会吧DBGrid中的数据直接导出到Excel表中,而先前能看到的函数仅仅只能在WorkBook的一个Sheet中导入数据,不支持多Sheet!。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

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;//  (1)
  XLApp.SheetsInNewWorkbook := High(Args) + 1;//  (2)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  XLApp.SheetsInNewWorkbook := High(Args) + 1;
  XLApp.WorkBooks.Add; 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  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;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
经过测试,上面这段代码确实有问题:(有兴趣的朋友可以自己测试一下)

比如:
先form1.CopyDbDataToExcel([dbgrid1,dbgrid2,dbgrid3]);//OK
再form1.CopyDbDataToExcel([dbgrid1,dbgrid2,dbgrid,dbgrid4]);//这样就出错,提示:无效索引

如果这样:
先form1.CopyDbDataToExcel([dbgrid1,dbgrid2,dbgrid3,dbgrid4]);//OK
再form1.CopyDbDataToExcel([dbgrid1,dbgrid2]);//OK

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
总之:先少后多,就出错...
原因就出在上面代码(1),(2)两段上,经过测试,正确的应该将(1),(2)代码对调,才能保证不出错....

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

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

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

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

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

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

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

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

将excel中的数据导入到DataTable中

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

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

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

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

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

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

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

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

 很简单,使用opendatasource就可以实现了insert into tablenameselect * from opendatasource(Microsoft.Jet.OLEDB.4.0...
  • itzhiren
  • itzhiren
  • 2006年10月13日 14:15
  • 1692

教你如何把excel中的数据导入到Mysql中

其实很简单,按照我说的一步步做就好了。 第一步:把excel中的数据整理好 第二步:在数据结束的最后一列即第J列第一行写公式 第三步:按住第J列第第一行不要松手往下拖,算出其他行的结果。并把结果复...
  • u014374031
  • u014374031
  • 2015年06月21日 19:35
  • 559
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
举报原因:
原因补充:

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