CxGrid导出到Excel(Delphi)

使用CxGrid自带的方法。

优点：参数简单。

uses cxExportGrid4Link;

procedure TFrm_func.CxGridToExcel(AcxGrid: TcxGrid);

var
  SaveDialog: TSaveDialog;
begin
  SaveDialog := TSaveDialog.Create(nil);
  with SaveDialog do
  begin
    Filter := '*.xls|*.xls';
    if Execute then
      ExportGrid4ToExcel(SaveDialog.FileName, AcxGrid, true, true, true, 'xls');
  end;
  SaveDialog.Free;
end;