cxgrid导出excel

uses cxexportgrid4link;

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

 

5以上版本：

uses cxGridExportLink;

 

procedure ExpGridToXls(grid: TcxGrid);
var
  SaveDialog: TSaveDialog;
begin
  SaveDialog:=TSaveDialog.Create(nil);
  with SaveDialog do
  begin
    Filter := 'xls|*.xls|html|*.htm|xml|*.xml|text|.txt';
    if Execute then
     begin
       case SaveDialog.FilterIndex of
         1: ExportGridToExcel(FileName, grid);
         2: ExportGridToHTML(FileName, grid);
         3: ExportGridToXML(FileName, grid);
         4: ExportGridToText(FileName, grid);
       end;
     end;
  end;
  SaveDialog.Free;

end;