Fórum Exportar cxGrid #455498

uses cxExportGrid4Link, ShellAPI
 
procedure SBExportarClick(Sender: TObject);
var
  FileExt: String;
begin
  SaveDialog.Filter := 'Excel (*.xls) |*.xls|XML (*.xml) |*.xml|Arquivo Texto (*.txt) |*.txt|Página Web (*.html)|*.html';
  SaveDialog.Title := 'Exportar Dados';
  SaveDialog.DefaultExt:= 'xls';
  if SaveDialog.Execute then
  begin
    FileExt := LowerCase(ExtractFileExt(SaveDialog.FileName));
    if FileExt = '.xls' then
          ExportGrid4ToExcel(SaveDialog.FileName,Grade, False)
    else if FileExt = '.xml' then
          ExportGrid4ToXML(SaveDialog.FileName,Grade, False)
    else if FileExt = '.txt' then
          ExportGrid4ToText(SaveDialog.FileName,Grade, False)
    else if FileExt = '.html' then
          ExportGrid4ToHTML(SaveDialog.FileName,Grade, False);
    ShellExecute(Handle, 'open', pchar(SaveDialog.FileName), nil, nil, SW_SHOW);
  end;
end;