cxgrid导出

uses 中添加 cxGridExportLink

var
  SFD:TSaveDialog;
  FileName,FileExt:String;
begin
  SFD:=TSaveDialog.Create(nil);
  SFD.Filter:='Excel文件 (*.xls)|*.xls';
  SFD.Title:='导出为';
  SFD.DefaultExt:='.XLS';
  SFD.Options:=[ofOverwritePrompt, ofEnableSizing];

    if not SFD.Execute then exit;
    //filename
    FileName:=SFD.FileName;
    FileExt:=UpperCase(ExtractFileExt(FileName));

    if FileExt='.XLS' then
    begin
        ExportGridToExcel(FileName, cxGrid1, True, True);
    end
    else
      begin
          Application.MessageBox('不支持的导出格式', 'xx');
          Exit;
      end;
    SFD.Free

本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1179003 ，如需转载请自行联系原作者