TcxGrid导出EXCEL

标签：

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;

TcxGrid导出EXCEL

标签：

原文地址：http://www.cnblogs.com/hnxxcxg/p/4888270.html