先NEW 一个UNIT
然后就可以写了unit ExportToExcel;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, db,
     ComObj, Excel97;type
  TExportToExcel = Class  private 
    FTitle :string;
    ExcelApp, WorkBook :Variant;
    function GetColumnName(FieldCount: integer): string;
  public
    Constructor Create; overLoad; //构造
    Destructor Free; overload;  //析构
    function DataSetToExcel(MasterTable,DetailTable :TDataSet;  ZBZD,MXZD,TitleAndTail :TStringList) :Boolean;
    procedure setExcelTitle(Value :string);
    property Title :string read FTitle write setExcelTitle;
end;这正好是我写的,准备用的,正好你看看吧