DBGridEh导出数据

最新推荐文章于 2024-11-21 15:01:56 发布

转载最新推荐文章于 2024-11-21 15:01:56 发布 · 1.3k 阅读

文章标签：

#ext #rtf #csv #excel #工作 #list

Delphi 专栏收录该内容

11 篇文章

订阅专栏

ar ExpClass: TDBGridEhExportClass;
  Ext: string;
begin
  if ciqry.Active then
  begin
    DBGridEh1.SetFocus;
    SaveDialog1.Filter := 'xls工作簿(*.xls)|*.xls|'; //'xls工作簿(*.xls)|*.xls'+
                     //'csv文件(*.csv)|*.csv|'+
                    // '网页(*.htm)|*.htm|'+
                    // 'rtf文件(*.rtf)|*.rtf|'+
                     //'文本文件(*.txt)|*.txt|';

    SaveDialog1.FileName := 'ci_list';
    if (ActiveControl is TDBGridEh) then
      if SaveDialog1.Execute then
      begin
        case SaveDialog1.FilterIndex of
          1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
        //2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
       // 3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
        //4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        //5: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt';end;
        else
          ExpClass := nil; Ext := '';
        end;
        if ExpClass <> nil then
        begin
          if UpperCase(Copy(SaveDialog1.FileName, Length(SaveDialog1.FileName) - 2, 3)) <> UpperCase(Ext) then
            SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
          SaveDBGridEhToExportFile(ExpClass, TDBGridEh(ActiveControl), SaveDialog1.FileName, True); //其false时,为局部数据
        end;
        showmessage('已完成转出Excel文件!');
      end;
  end
  else
    showmessage('没有数据，不能转出Excel文件');

引用:DBGridEhImpExp