Ehlib的DBGridEh 控件导出到Excel

use DBGridEhImpExp //必须引用此单元

procedure TInvoiceManager.ppmSaveSelectionClick(Sender: TObject);
procedure TMainForm.SpeedButton5Click(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
    Ext:String;
begin
  SaveDialog1.FileName := 'file1';
  if (ActiveControl is TDBGridEh) then
    if SaveDialog1.Execute then
    begin
    case SaveDialog1.FilterIndex of
         begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
         begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
         begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
         begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
         begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; 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),//TDBGridEh(ActiveControl)可以直接指定某个DBGridEh，如DBGridEh1，如指定，则上面第一句判断句可以去掉
        SaveDialog1.FileName,true);//最后一个参数true为全部输出，false为选定数据的输出
      end;
    end;
end;