使用“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;