请问如何在程序中Excel与Access数据的导入导出

Question

程序是Delphi+Access
要在程序中实现
1、Excel表的数据添加到数据库中
2、数据库中的数据导入到Excel中
请问应该如何实现

Answer 1

给你简单写一下，应该没问题，这是导出，导入则相反，自己弄了，呵呵procedure TForm1.Button1Click(Sender: TObject);
 var
  ggg:olevariant;
  sheet:olevariant;
  filename:string;
  i,j:integer;
  begin
     filename:='dddd.xls';
     try
       ggg:=createoleobject('excel.application');      except
       showmessage('no find');
       exit;
       end;
       ggg.visible:=true;
       ggg.workbooks.add;
       ggg.workbooks[1].sheets[1].name:='chinaese';
       sheet:=ggg.workbooks[1].sheets['chinaese'];
       query1.open;
       query1.first;
       j:=2;
       for i:=1 to Query1.FieldCount do begin
        sheet.cells[1,i].value:=query1.Fields[i-1].fieldname;
        end;
       query1.first;
       while not query1.eof do
        begin
         for i:=2 to query1.fieldcount+1 do
           begin
            sheet.cells[j,i-1].value:=trim(query1.fields[i-2].asstring);
           end;
           Query1.Next ;
           inc(j);
         end;
  end;

Answer 2

TO LoveCJ
在帮帮忙吧，EXCEL表中的数据添加到ACCESS已有表格中
对这写实在不了解 
  ggg.visible:=true;
  ggg.workbooks.add;
   ggg.workbooks[1].sheets[1].name:='chinaese';
   sheet:=ggg.workbooks[1].sheets['chinaese'];能不能再麻烦一下，谢谢！