不好意思，转贴别人的东西：
首先新建一Application， 然后在Form1上放置Servers栏控件ExcelApplication1、 ExcelWorkbook1、 ExcelWorksheet1， 再放置控件Table1、 Datasource1、 Button1、 Button2、 Button3、 Button4，
procedure TForm1.button1Click(Sender: TObject);//SaveToExcel
var
i,row,column:integer;
begin
Try
ExcelApplication1.Connect; //连上EXCEL
Except
MessageDlg('Excel may not be installed',
mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Application';
ExcelApplication1.Workbooks.Add(Null,0); //打开工作薄
ExcelWorkbook1.ConnectTo
(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo
(ExcelWorkbook1.Worksheets[1] as _Worksheet);
Table1.Open;
row:=1;
While Not(Table1.Eof) do //将数据库的数据导入工作薄
begin
column:=1;
for i:=1 to Table1.FieldCount do
begin
ExcelWorksheet1.Cells.Item[row,column]:
=Table1.fields[i-1].AsString;
column:=column+1;
end;
Table1.Next;
row:=row+1;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ExcelWorksheet1.PrintPreview; //打印预览
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ExcelWorksheet1.PrintOut; //打印
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ExcelApplication1.Disconnect; //关闭EXCEL
ExcelApplication1.Quit;
end;
