使用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;