PivotGrid 导出到 XLS 文件

PivotGrid 导出到 XLS 文件

可使用 cxExportPivotGridToExcel 函数，语法：

cxExportPivotGridToExcel(const AFileName: string; APivotGrid: TcxCustomPivotGrid; AExpand: Boolean = True; AUseNativeFormat: Boolean = True; const AFileExt: string = 'xls'; SimplifiedLayout: Boolean = False);

Uses
  cxExportPivotGridLink;

begin
  // 不导出这些单元格，避免导出的 Excel 文件中过多错乱的合并单元格
  cxDBPivotGrid1.OptionsView.FilterFields := False;
  cxDBPivotGrid1.OptionsView.DataFields := False;
  cxDBPivotGrid1.OptionsView.RowFields := False;
  cxDBPivotGrid1.OptionsView.ColumnFields := False;

  cxExportPivotGridToExcel('c:\aaa.xls', cxDBPivotGrid1, true, true);

  // 导出完成后可以再恢复
  cxDBPivotGrid1.OptionsView.FilterFields := True;
  cxDBPivotGrid1.OptionsView.DataFields := True;
  cxDBPivotGrid1.OptionsView.RowFields := True;
  cxDBPivotGrid1.OptionsView.ColumnFields := True;
end;