如何把数据库中的存入Excel中...

[suihu]

Access数据库中有三个表，如何分别存入Excel文件中的sheet1、sheet2、sheet3中？
　　
　　存入一个sheet中的代码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
eclApp,WorkBook:Variant;
{声明为OLE Automation对象 }
xlsFileName:string;
begin
xlsFileName:='ex.xls';
try
{创建OLE对象：Excel Application与 WorkBook} // Uses ComObj
eclApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
except
ShowMessage('您的机器里未安装Microsoft Excel.');
Exit;
end;

try
ShowMessage('下面演示：新建一个XLS文件，并写入数据，最后关闭它');
workBook:=eclApp.workBooks.Add;
eclApp.Cells(1 , 1):='字符型';
eclApp.Cells(2 , 1):='Excel文件';
eclApp.Cells(1 , 2):='Money';
eclApp.Cells(2 , 2):=10.01;
eclApp.Cells(1 , 3):='日期型';
eclApp.Cells(2 , 3):=Date;

WorkBook.saveas(xlsFileName);
WorkBook.close;
showmessage('下面演示：打开刚创建的XLS文件，并修改其中 的内容，然后，由用户决定是否保存。');
workbook:=eclapp.workBooks.open(xlsFileName);
eclApp.Cells(2 , 1):='Excel文件类型';
if MessageDlg(xlsFileName+'文件已被修改，是否保存？',mtConfirmation,[mbYes, mbNo], 0) = mrYes then
WorkBook.save
else
workBook.Saved := True; {放弃修改}
WorkBook.Close;

eclApp.Quit; //退出Excel Application
{释放VARIANT变量}
eclApp:=Unassigned;
except

showMessage('不能正确操作Excel文件。可能是该文件已被其他程序打开，或系统错误');
WorkBook.close;
eclApp.Quit;
{释放VARIANT变量}
eclApp:=Unassigned;
end;

end;

end.

[gxgyj]

http://community.csdn.net/Expert/topic/3737/3737476.xml?temp=.346554