delphi 中怎样将access库中的 指定(table)表中数据导入到excel中另存储?该如何处理

delphi 中怎样将access库中的 指定(table)表中数据导入到excel中另存储?

第一:     怎样将access库中的数据导入到excel中并另行保存.

第二:     如何将   Excel中的数据和Dbchart关联起来.就是通过选择不同的excel中的
数据值在dbchart控件中绘制出曲线.


------解决方案--------------------
一、见
http://community.csdn.net/Expert/topic/5584/5584628.xml?temp=.4120294
------解决方案--------------------
第一好办，第二个如果读出来可能有问题。具体参考VBA
------解决方案--------------------
很简单
procedure TFmavin.E3Click(Sender: TObject);
var
myexcel:variant;
workbook:olevariant;
worksheet:olevariant;
i,j:integer;
begin
if application.MessageBox( '确认要导出数据吗？如果数据量过大，将会有一段时间不能响应！ ', '警告！ ',MB_OKCANCEL+MB_ICONQUESTION)=IDCANCEL then
exit;
try
myexcel:=createoleobject( 'excel.application ');
myexcel.application.workbooks.add;
myexcel.caption:= '将数据导入到EXCEL表中 ';
myexcel.application.visible:=true;
workbook:=myexcel.application.workbooks[1];
worksheet:=workbook.worksheets.item[1];
except
showmessage( '请确认EXCEL安装正确！ ');
end;
Fmain.StatusBar.Panels.Items[1].Text:= '正在导出数据，请稍后！ ';
Fmain.Cursor:=crSQLWait;
with dm do
begin
i:=0;
ADOQuery2.first;
while not ADOQuery2.eof do
begin
inc(i);
for j:=0 to ADOQuery2.fieldcount-1 do
worksheet.cells[i,j+1]:=ADOQuery2.Fields[j].asstring;
ADOQuery2.next;
end;
end;
Fmain.StatusBar.Panels.Items[1].Text:= '导出数据完毕！ ';
Fmain.Cursor:=crDefault;
end;