代码如下：
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, Grids,excelxp, DBGrids, StdCtrls, ExtCtrls,comobj;

type
……
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DlgAcc002Form: TDlgAcc002Form;

implementation

{$R *.dfm}

procedure TDlgAcc002Form.Button3Click(Sender: TObject);
var
x,y,i,j:integer;
   MsExcel:OleVariant;
begin
      try
      MSExcel:=CreateOleObject('Excel.Application');
      MSExcel.application.Visible:=False;
    Except
      on Exception do raise exception.Create('无法打开xls文件,请确认已经安装了EXCEL');
    end;
    MSEXCEL.WORKBOOKS.ADD;
x:=adoquery1.fieldcount;
y:=adoquery1.recordcount;
for I:=1 to x do
MSExcel.cells.item[1,i]:=adoquery1.fields[i-1].fullname;
adoquery1.first;
for j:=2 to y+1 do
begin
for i:=1 to x do
begin
MSExcel.cells.item[j,i]:=adoquery1.fields[i-1].value;
end;
adoquery1.next;
end;

    MSExcel.application.Visible:=True;
    MSExcel.Quit;
    MSExcel:=Unassigned;
    Screen.cursor:=crdefault;
end;

uses DBGridEhImpExp

procedure TForm4.SeSkinButton5Click(Sender: TObject);
begin
SaveDialog1.Execute;
if  trim(SaveDialog1.FileName)<>'' then
begin
SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1, SaveDialog1.FileName,true);
end;
end;