AI 助理
备案控制台
开发者社区 云计算 文章 正文

Delphi中直接将DataSet中的数据写入Excel文件

2017-11-14 1446
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：
Procedure TFormReport.ExportExcelFile(FileName:  string ; bWriteTitle: Boolean; aDataSet: TClientDataSet);
var
  arXlsBegin: array[ 0 .. 5 ] of Word;
  arXlsEnd: array[ 0 .. 1 ] of Word;
  arXlsString: array[ 0 .. 5 ] of Word;
  arXlsNumber: array[ 0 .. 4 ] of Word;
  arXlsInteger: array[ 0 .. 4 ] of Word;
  arXlsBlank: array[ 0 .. 4 ] of Word;

  i: integer;
  Col, row: word;
  ABookMark: TBookMark;
  aFileStream: TFileStream;
  procedure incColRow;  // 增加行列号
  begin
     if  Col  =  ADataSet.FieldCount  -   1  then begin
      Inc(Row);
      Col : = 0 ;
    end  else  begin
      Inc(Col);
    end;
  end;

  procedure WriteStringCell(AValue:  string ); // 写字符串数据
  var
    L: Word;
  begin
    L : =  Length(AValue);
    arXlsString[ 1 ] : =   8   +  L;
    arXlsString[ 2 ] : =  Row;
    arXlsString[ 3 ] : =  Col;
    arXlsString[ 5 ] : =  L;
    aFileStream.WriteBuffer(arXlsString, SizeOf(arXlsString));
    aFileStream.WriteBuffer(Pointer(AValue) ^ , L);
    IncColRow;
  end;

  procedure WriteIntegerCell(AValue: integer); // 写整数
  var
    V: Integer;
  begin
    arXlsInteger[ 2 ] : =  Row;
    arXlsInteger[ 3 ] : =  Col;
    aFileStream.WriteBuffer(arXlsInteger, SizeOf(arXlsInteger));
    V : =  (AValue shl  2 ) or  2 ;
    aFileStream.WriteBuffer(V,  4 );
    IncColRow;
  end;

  procedure WriteFloatCell(AValue:  double ); // 写浮点数
  begin
    arXlsNumber[ 2 ] : =  Row;
    arXlsNumber[ 3 ] : =  Col;
    aFileStream.WriteBuffer(arXlsNumber, SizeOf(arXlsNumber));
    aFileStream.WriteBuffer(AValue,  8 );
    IncColRow;
  end;

begin
  arXlsBegin[ 0 ]: = $ 809 ;
  arXlsBegin[ 1 ]: = 8 ;
  arXlsBegin[ 2 ]: = 0 ;
  arXlsBegin[ 3 ]: = $ 10 ;
  arXlsBegin[ 4 ]: = 0 ;
  arXlsBegin[ 5 ]: = 0 ;


  arXlsEnd[ 0 ]: = $0A;
  arXlsEnd[ 1 ]: = 00 ;

  arXlsString[ 0 ]: = $ 204 ;
  arXlsString[ 1 ]: = 0 ;
  arXlsString[ 2 ]: = 0 ;
  arXlsString[ 3 ]: = 0 ;
  arXlsString[ 4 ]: = 0 ;
  arXlsString[ 5 ]: = 0 ;

  arXlsNumber[ 0 ]: = $ 203 ;
  arXlsNumber[ 1 ]: = 14 ;
  arXlsNumber[ 2 ]: = 0 ;
  arXlsNumber[ 3 ]: = 0 ;
  arXlsNumber[ 4 ]: = 0 ;

  arXlsInteger[ 0 ]: = $27E;
  arXlsInteger[ 1 ]: = 10 ;
  arXlsInteger[ 2 ]: = 0 ;
  arXlsInteger[ 3 ]: = 0 ;
  arXlsInteger[ 4 ]: = 0 ;

  arXlsBlank[ 0 ]: = $ 201 ;
  arXlsBlank[ 1 ]: = 6 ;
  arXlsBlank[ 2 ]: = 0 ;
  arXlsBlank[ 3 ]: = 0 ;
  arXlsBlank[ 4 ]: = $ 17 ;


   if  FileExists(FileName) then DeleteFile(FileName);  // 文件存在，先删除
    aFileStream : =  TFileStream.Create(FileName, fmCreate);
  Try
     // 写文件头
    aFileStream.WriteBuffer(arXlsBegin, SizeOf(arXlsBegin));
     // 写列头
    Col : =   0 ; Row : =   0 ;
     if  bWriteTitle then begin
       for  i : =   0  to aDataSet.FieldCount  -   1   do
        WriteStringCell(aDataSet.Fields[i].FieldName);
    end;
     // 写数据集中的数据
    aDataSet.DisableControls;
    ABookMark : =  aDataSet.GetBookmark;
    aDataSet.First;
     while  not aDataSet.Eof  do  begin
       for  i : =   0  to aDataSet.FieldCount  -   1   do
         case  ADataSet.Fields[i].DataType of
          ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:
          WriteIntegerCell(aDataSet.Fields[i].AsInteger);
          ftFloat, ftCurrency, ftBCD:
          WriteFloatCell(aDataSet.Fields[i].AsFloat)
         else
          WriteStringCell(aDataSet.Fields[i].AsString);
        end;
      aDataSet.Next;
    end;
     // 写文件尾
    AFileStream.WriteBuffer(arXlsEnd, SizeOf(arXlsEnd));
     if  ADataSet.BookmarkValid(ABookMark)
      then aDataSet.GotoBookmark(ABookMark);
  Finally
    AFileStream.Free;
    ADataSet.EnableControls;
  end;

end;



    本文转自 OldHawk  博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/06/12/780930.html，如需转载请自行联系原作者

关键词：
数据excel
excel文件
excel数据
数据excel文件
excel dataset
技术小胖子
目录
相关文章
无糖可乐嘟嘟
|
14天前
|
数据采集 数据可视化 数据挖掘
利用Python自动化处理Excel数据：从基础到进阶####
本文旨在为读者提供一个全面的指南，通过Python编程语言实现Excel数据的自动化处理。无论你是初学者还是有经验的开发者，本文都将帮助你掌握Pandas和openpyxl这两个强大的库，从而提升数据处理的效率和准确性。我们将从环境设置开始，逐步深入到数据读取、清洗、分析和可视化等各个环节，最终实现一个实际的自动化项目案例。 ####
无糖可乐嘟嘟
48 10
奔跑的数据
|
2月前
|
数据采集 存储 JavaScript
自动化数据处理：使用Selenium与Excel打造的数据爬取管道
本文介绍了一种使用Selenium和Excel结合代理IP技术从WIPO品牌数据库（branddb.wipo.int）自动化爬取专利信息的方法。通过Selenium模拟用户操作，处理JavaScript动态加载页面，利用代理IP避免IP封禁，确保数据爬取稳定性和隐私性。爬取的数据将存储在Excel中，便于后续分析。此外，文章还详细介绍了Selenium的基本设置、代理IP配置及使用技巧，并探讨了未来可能采用的更多防反爬策略，以提升爬虫效率和稳定性。
奔跑的数据
126 4
bruce_xiaowei
|
13天前
|
Python
按条件将Excel文件拆分到不同的工作表
使用Python的pandas库，可以轻松将Excel文件按条件拆分到不同的工作表中。本文通过一个示例代码展示了如何生成一个包含总成绩表和三个班级表的Excel文件。代码首先创建了一个包含学生姓名、班级和各科成绩的数据框，然后按班级分组，将每个班级的数据分别写入不同的工作表。最后，生成的Excel文件将包含四个工作表，分别为总成绩表和三个班级的成绩表。
bruce_xiaowei
23 6
按条件将Excel文件拆分到不同的工作表
bruce_xiaowei
|
12天前
|
Python
批量将不同的工作簿合并到同一个Excel文件
本文介绍如何使用Python的`pandas`库批量合并不同工作簿至同一Excel文件。通过模拟生成三个班级的成绩数据，分别保存为Excel文件，再将这些文件合并成一个包含所有班级成绩的总成绩单。步骤包括安装必要库、生成数据、保存与合并工作簿。
bruce_xiaowei
22 6
bruce_xiaowei
|
12天前
|
Python
按条件将Excel文件拆分到不同的工作表
使用Python的pandas库，可以轻松将Excel文件按条件拆分为多个工作表。本文通过一个具体示例，展示了如何根据学生班级将成绩数据拆分到不同的工作表中，并生成一个包含总成绩表和各班级成绩表的Excel文件。代码简洁明了，适合初学者学习和应用。
bruce_xiaowei
27 6
小宋1021
|
21天前
|
前端开发
实现Excel文件和其他文件导出为压缩包，并导入
实现Excel文件和其他文件导出为压缩包，并导入
小宋1021
25 1
zzy的aly
|
2月前
|
数据处理 Python
Python实用记录(十):获取excel数据并通过列表的形式保存为txt文档、xlsx文档、csv文档
这篇文章介绍了如何使用Python读取Excel文件中的数据，处理后将其保存为txt、xlsx和csv格式的文件。
zzy的aly
65 3
Python实用记录(十):获取excel数据并通过列表的形式保存为txt文档、xlsx文档、csv文档
刘大猫.
|
1月前
|
存储 Java API
Java实现导出多个excel表打包到zip文件中，供客户端另存为窗口下载
Java实现导出多个excel表打包到zip文件中，供客户端另存为窗口下载
刘大猫.
43 4
LALA
|
2月前
|
JavaScript 前端开发 数据处理
Vue导出el-table表格为Excel文件的两种方式
Vue导出el-table表格为Excel文件的两种方式
LALA
82 6
程序员皮皮林
|
2月前
|
easyexcel Java UED
SpringBoot中大量数据导出方案：使用EasyExcel并行导出多个excel文件并压缩zip后下载
在SpringBoot环境中，为了优化大量数据的Excel导出体验，可采用异步方式处理。具体做法是将数据拆分后利用`CompletableFuture`与`ThreadPoolTaskExecutor`并行导出，并使用EasyExcel生成多个Excel文件，最终将其压缩成ZIP文件供下载。此方案提升了导出效率，改善了用户体验。代码示例展示了如何实现这一过程，包括多线程处理、模板导出及资源清理等关键步骤。
程序员皮皮林
326 6

热门文章

最新文章

  • 1
    RDS入门——Excel文件转存到RDS数据库实践
  • 2
    [SilverLight]DataGrid实现批量输入(like Excel)（补充）
  • 3
    Java Poi 创建与读取Excel
  • 4
    Excel自动筛选、单元格选择不同的值显示不同的颜色、第一行不动
  • 5
    Excel 2010 打开加速方法
  • 6
    如何使用Excel快速生成随机数据，你肯定想不到
  • 7
    vue3—使用element-plus表格导出excel表格（带图片）
  • 8
    C#：GridView导出Excel，以及runat=server错误处理方法
  • 9
    扩展gridview的导出excel功能乱码问题的解决
  • 10
    Python三行代码实现json转Excel
  • 1
    Java无模版导出Excel 0基础教程
    110
  • 2
    使用Postman导出excel
    248
  • 3
    Excel 导入 sql3
    47
  • 4
    `openpyxl`是一个用于读写Excel 2010 xlsx/xlsm/xltx/xltm文件的Python库。它不需要Microsoft Excel，也不需要.NET或COM组件。
    113
  • 5
    Python代码示例，读取excel表格，将行数据转为列数据。（10）
    196
  • 6
    2024年新一代WebOffice内嵌网页组件，Web网页在线编辑Word/Excel/PPT
    319
  • 7
    技术心得：前端点击按钮，导入excel文件，上传到后台，excel接收和更新数据
    67
  • 8
    这份Excel+Python飞速搞定数据分析手册，简直可以让Excel飞起来
    83
  • 9
    Python对Excel两列数据进行运算【从基础到高级的全面指南】
    314
  • 10
    【Python】已解决：（pandas read_excel 读取Excel报错）ImportError: Pandas requires version ‘2.0.1’ or newer of ‘x
    312

    • 相关电子书

    更多
  • 低代码开发师（初级）实战教程
  • 冬季实战营第三期：MySQL数据库进阶实战
  • 阿里巴巴DevOps 最佳实践手册
    • 下一篇
    阿里云对象存储OSS收费标准：存储、流量和请求等多个计费项详解