• 周四. 8月 11th, 2022

5G编程聚合网

5G时代下一个聚合的编程学习网

热门标签

CXGRID 导出EXCEL

admin

11月 28, 2021
USES 
cxgridExportlink
procedure TfrmAdvAPS.CxGridToExcel(AcxGrid: TcxGrid);
var
  SaveDialog: TSaveDialog;
begin
  SaveDialog := TSaveDialog.Create(nil);
  try
    with SaveDialog do
    begin
      FileName := '导出';
      Filter := '*.xls|*.xls|*.xlsx|*.xlsx|';
      if Execute then
      begin
        case SaveDialog.FilterIndex of
          1:
            ExportGridToExcel(SaveDialog.FileName, AcxGrid, true, true, true, 'xls');
          2:
            ExportGridToXLSX(SaveDialog.FileName, AcxGrid, true, true, true, 'xlsx');  //2007
        end;
      end;
    end;
  finally
    SaveDialog.Free;
  end;
end;
中年大叔学Delphi

发表评论

您的电子邮箱地址不会被公开。