Delphi CxGrid和CxTreeList数据导出EXCEL文件,在Delphi12里编译通过
procedure CxGridToExcel(AcxGrid: TcxGrid);
var
SaveDialog: TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(nil);
with SaveDialog do
begin
Filter := '*.xls|*.xlsx';
if Execute then
ExportGridToExcel(SaveDialog.FileName, AcxGrid, true, true, true, 'xls');
end;
SaveDialog.Free;
end;
procedure CxTreeListToExcel(ATreeList: TcxDBTreeList);
var
SaveDialog: TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(nil);
with SaveDialog do
begin
Filter := '*.xls|*.xlsx';
if Execute then
cxExportTLToExcel(SaveDialog.FileName,ATreeList, true, true, true, 'xls');
end;
SaveDialog.Free;
end;