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;