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

Question

第一:  怎样将access库中的数据导入到excel中并另行保存.第二:  如何将 Excel中的数据和Dbchart关联起来.就是通过选择不同的excel中的
数据值在dbchart控件中绘制出曲线.

Answer 1

一、见
http://community.csdn.net/Expert/topic/5584/5584628.xml?temp=.4120294

Answer 2

第一好办，第二个如果读出来可能有问题。具体参考VBA

Answer 3

Bear_hx(寒萧) ( ) 信誉：100    Blog   加为好友 能说具体一些吗

Answer 4

很简单
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;