将GRID中数据导出到 EXCEL文件中

原创 2007年09月18日 12:43:00
//将GRID中数据导出到 EXCEL文件中
function ExportDBGridEHToExcel(ADBGridEH: TDBGridEh; AOutputFileName: string ; ASheetName :string ): Boolean;
var
  liFieldIndex: Integer;
  liRecordIndex: Integer;
  loXmlWriter: TXLSReadWriteII2;
begin
  Result := False;
  if (not Assigned(ADBGridEH.DataSource)) or (not Assigned(ADBGridEH.DataSource.DataSet)) then
    Exit;
  try
    liRecordIndex := 0;
    loXmlWriter := TXLSReadWriteII2.Create(nil);
 
    //设置Sheet的name信息
    if Trim(ASheetName) <> '' then
      loXmlWriter.Sheet[0].Name := ASheetName;
 
    ADBGridEH.DataSource.DataSet.DisableControls;
    ADBGridEH.DataSource.DataSet.First;
    //输出标题部分
    for liFieldIndex := 0 to ADBGridEH.Columns.Count - 1 do
    begin
      if ADBGridEH.Columns.Items[liFieldIndex].Visible then
      begin
        loXmlWriter.Sheet[0].AsString[liFieldIndex, liRecordIndex] := ADBGridEH.Columns.Items[liFieldIndex].Title.Caption;
      end;
    end;
    liRecordIndex := 1;
    //输出内容
    while not ADBGridEH.DataSource.DataSet.Eof do
    begin
      for liFieldIndex := 0 to ADBGridEH.Columns.Count - 1 do
      begin
        if ADBGridEH.Columns.Items[liFieldIndex].Visible then
          loXmlWriter.Sheet[0].AsString[liFieldIndex, liRecordIndex] :=
            ADBGridEH.DataSource.DataSet.FieldByName(ADBGridEH.Columns.Items[liFieldIndex].FieldName).AsString;
      end;
      ADBGridEH.DataSource.DataSet.Next;
      liRecordIndex := liRecordIndex + 1;
      //Application.ProcessMessages;
    end;
    loXmlWriter.Filename := AOutputFileName;
    loXmlWriter.Write;
  finally
    ADBGridEH.DataSource.DataSet.EnableControls;
    FreeAndNil(loXmlWriter);
  end;
end; 
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

【AngularJs】ui-grid 使用详解

在ui-grid 导出pdf 时可能会出现中文字符无法显示问题,解决方法看这篇博客: http://my.oschina.net/gmd/blog/714911   html代码: html ...

二十五、UI-Grid 导出数据

原文:206 Exporting Data导出功能允许将数据从表格中导出为 csv 或 pdf 格式,可以导出所有数据、可见数据或所选数据。要使用导出功能, 需要在表格上引入 ui-grid-expo...

Ext Grid数据导出到Excel

  • 2013-12-31 15:59
  • 21KB
  • 下载

.net下导出sigma_grid数据到Excel

今天在做sigma_grid导出Excel数据,网上的Demo都是给一个导出Excel的地址,如: exportURL : './export_php/testList.php?export=true...

ExtJS:Grid数据导出至excel实例

导出函数ExportExcel()var config={ store: alldataStore, title: '测试标题' }; var tab=tabPanel.getActiveTa...

导出grid panel 数据到Excel

前段时间有个项目需要做导出Excel的功能,后来在网上找到一些文章,但都是1.0版本的,自己改成了2.0版本 前台脚本: /* ||fomrat: 导出格式(excel, csv, xml) ||...

ExtJS4.0中Excel文件导入grid

在给出代码之前,先说一下思想,要达到excel的上传,有两种方式可以选择,一种是打开grid,然后打开excel,选中要导入的excel记录,然后进行拖拽,在grid中要使用Ext.ux.grid.D...

ext grid 导出 excel

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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