DBGridEh导出数据

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