DBGridEh 控件导出到Excel

uses DBGridEhImpExp;

procedure TInvoiceManager.ppmSaveSelectionClick(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

　　　　1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; 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 := 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),

　　　　　　 SaveDialog1.FileName,False);

　　　end;

　　end;

end;