麻烦发一个绝对能用的DBGridEh导入到Excel例子，谢谢。

Question

最好是Delphi7环境下的，通用的组建最好了。
麻烦大家了。谢谢...

Answer 1

save一下就可以了,dbgrideh很简单

Answer 2

uses DBGridEhImpExp;
procedure savegrid(grid:TDBGridEh;filename:string);
var ExpClass:TDBGridEhExportclass;
   Ext:String;
   savedlg:tsavedialog;
begin
   savedlg:=tsavedialog.Create(nil);
   savedlg.Filter:='Excel 文档 (*.xls)|*.XLS|Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF';
   SaveDlg.FileName := filename;
   SaveDlg.DefaultExt := 'XLS';
   if SaveDlg.Execute then
     begin
       case SaveDlg.FilterIndex of
           1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
           2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
           3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
           4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
           5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
       else
            ExpClass := nil; Ext := '';
       end;
       if ExpClass <> nil then    begin
          if UpperCase(Copy(SaveDlg.FileName,Length(SaveDlg.FileName)-2,3)) <> UpperCase(Ext) then
              SaveDlg.FileName := SaveDlg.FileName + '.' + Ext;
          SaveDBGridEhToExportFile(ExpClass,grid,SaveDlg.FileName,true);
     end;
   end;
   Savedlg.Destroy;
end;
  

Answer 3

nojave 简直是太正解了 
我找了一天的原因
找了一天的代码
最后发现只有你的是可以行的通的
太感谢你了。。