TcxGrid导出EXCEL

ExportGrid4ToEXCEL这个老的版本用的,新的版本引用cxGridExportLink这个单元。

function ExportExcel(grid: TcxGrid; const fileName: string = '1.xls'): Boolean;
var
  sd: TSaveDialog;
begin
  Result := False;
  if not Assigned(grid) then
    Exit;
  sd := TSaveDialog.Create(nil);
  try
    sd.Filter := '*.xls|*.xls';
    sd.fileName := fileName;
    if sd.Execute then
    begin
      Screen.Cursor := crSQLWait;
      try
        ExportGridToExcel(sd.fileName, grid);
      finally
        Screen.Cursor := crDefault;
      end;
      Result := True;
    end;
  finally
    sd.Free;
  end;
end;

posted @ 2015-10-17 21:15  delphi中间件  阅读(1095)  评论(0编辑  收藏  举报