Delphi 把CxGrid中的数据导出到Excel

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


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678