cxGrid V6以上导出EXCEL的方法

从原来使用cxGrid4系列开始，都是使用ExportGrid4ToExcel的办法，可是使用了6系列后，发现这个办法已经不行了，从Dev官方找了解决办法。

use

cxGridExportLink;

 

procedure TMainForm.cxButton_MemoExcelClick(Sender: TObject); begin

if SaveDialog1.Execute then begin ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True); end;

end;

 

///注意：ExportGridToExcel导出的标准格式，从源代码可以看出是以下的格式。

ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True,'xls');

但是，后参数可以省略。如：

ExportGridToExcel(SaveDialog1.FileName,cxGrid1），参数是否需要是根据需要来定。各参数的含意可以看源代码。源码如下：

procedure ExportGridToExcel(const AFileName: string; AGrid: TcxGrid; AExpand: Boolean; ASaveAll: Boolean; AUseNativeFormat: Boolean; const AFileExt: string); begin ExportGridToFile(AFileName, cxExportToExcel, AGrid, AExpand, ASaveAll, AUseNativeFormat, '', '', '', AFileExt); end;

转载于:https://www.cnblogs.com/treryh/p/3184140.html