unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExcelXP, OleServer, DB, ADODB;type
  TForm1 = class(TForm)
    ExcelApplication1: TExcelApplication;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
excelapplication1.Connect;
excelapplication1.Visible[0]:=true;
excelapplication1.Caption:='退补管理程序';
excelworkbook1.ConnectTo(excelapplication1.Workbooks.Add(null,0));
excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);excelworksheet1.Cells.Item[1,1]:='one';
excelworksheet1.Cells.Item[1,2]:='tow';
excelworksheet1.Cells.Item[1,3]:='three';
excelworksheet1.Cells.Item[2,1]:='31';
excelworksheet1.Cells.Item[2,2]:='21';
excelworksheet1.Cells.Item[2,3]:='11';excelworksheet1.SaveAs('c:\9.xls');excelapplication1.Quit;
excelworkbook1.Disconnect;
excelworksheet1.Disconnect;
excelapplication1.Disconnect;end;end.程序运行后,保存文件都可以,就是如果你想打开另外EXCEL文件只能开到EXCEL标题,其他看不见,请指教,谢谢!