大致有下面几个办法： 
    1）存成CSV文件，这种文件可以被Excel打开。如： 
    uses ADOInt; 
     
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
     Rs : string; 
     SL: TStringList; 
    begin 
     try 
     SL := TStringList.Create; 
     Rs := AdoQuery1.Recordset.GetString(adClipString, -1, #59,#13, ''); 
     SL.Text := Rs; 
     SL.SaveToFile('C:\MyQry.csv'); 
     finally 
     SL.Free; 
     end; 
    end; 
     
     
    2）利用Excel的数据库接口，这种方法需要一定的编程，而且不能控制格式： 
    with ADODataSet1 do 
     begin 
     CommandText := '$'; ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ FileName 
    + ';Extended Properties=Excel 8.0;Persist Security Info=False'; 
     Open; 
     {dO SOME STUFF} 
     Close; 
     end; 
     
     
    3）借助Automation接口，这样可以控制输出的格式，但需要编写大量代码。可以参考 
    QA003964 "如何在DELPHI中控制EXCEL"。 
    4）使用商业控件，如SMExport component suite(http://www.scalabium.com/)和XLSReadWrite(http://www.axolot.com/components/index_g.htm)。 

这个其实我也不会，是我在网上找的资料．你可以试一下