从原来使用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;
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;