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

之前我有篇博客：使用 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 单元里面。