把 DBGridEh 表格内容导出为 Excel 文件

原创于 2023-04-04 22:53:59 发布 · 957 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel

该文章介绍了如何利用Ehlib库中的TDBGridEhExportAsXLS类将DBGridEh表格中的数据导出为Excel文件。通过调用SaveDBGridEhToExportFile函数，可以将数据保存到指定路径，并指出若需导出其他格式，只需替换相应的类名。相关功能在DBGridEhImpExp.pas单元中定义。

之前我有篇博客：使用 Ehlib 将数据输出为 Excel，采用 TDataSetTextExporterEh

上述博客的内容是直接导出 DataSet 的数据，而不是 DBGridEh 的数据。

如果要导出 DBGridEh 表格里面的数据，采用以下方式：

procedure TForm1.Button20Click(Sender: TObject);
var
  Fn: string;
begin
  //导出汇总结果为 xls, 需要 uses DBGridEhImpExp
  Fn := 'D:\Data\abc.xls';
  SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh6, Fn, true);
end;

注意上述代码，如果要导出为其它格式的问题，则替换 TDBGridEhExportAsXLS 这个类名。

对应文件的类的声明，在这里必须要 uses 的 DBGridEhImpExp.pas 单元里面。