使用“EHlib”导出数据，（下面有段代码，请达人帮小弟我使用Ehlib导出数据）

使用“EHlib”导出数据，（下面有段代码，请达人帮我使用Ehlib导出数据）
-----------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh, StdCtrls;

type
  TForm1 = class(TForm)
  DBGridEh1: TDBGridEh;
  ADOConnection1: TADOConnection;
  ADOQuery1: TADOQuery;
  DataSource1: TDataSource;
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
   
   
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

end.


---------------------------------------

[解决办法]
引用DBGridEhImpExp单元 
然后 
procedure TFrmQuery.BtnExportClick(Sender: TObject); 
var 
exp: TDBGridEhExportAsXLS; 
begin 
if dlgSave1.Execute then 
begin 
try 
exp:=TDBGridEhExportAsXLS.Create; 
exp.DBGridEh:=DBGridEh1; 
exp.ExportToFile(dlgSave1.FileName,True); 
finally 
exp.Free; 
end; 
end; 
end;
[解决办法]
uses DBGridEhImpExp {引用此单元}

procedure TForm1.Button1Click(Sender: TObject);
var
ExpClass:TDBGridEhExportClass;
begin
{ SaveDialog1.Filter:='Excel文件 (*.xls)|*.xls';
SaveDialog1.DefaultExt:='xls'; [del][/del] }
if SaveDialog1.Execute then
begin
ExpClass:=TDBGridEhExportAsXLS;
SaveDBGridEhToExportFile(ExpClass,dbgrideh1,SaveDialog1.FileName,true); {TRUE表示保存DBgrideh显示的所有记录,FALSE仅保存选择的记录}
end;
end;