出處 http://blog.sina.com.cn/s/blog_4fd3c97201000cqm.html

標籤:IT/科技 cxgrid excel

cxGrid6.26導出到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;

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()