有delphi高手吗？高手的才进来！不是的免进！

Question

有delphi高手吗？有谁能用delphi实现一个程序，他可以把access中的数据导入excel中，也可以再把excel中的数据导入access中！要给出完整的程序代码！给出了就给最高分100分！

Answer 1

完整的程序代码？这都写不出来要你干什么？
提示一下，ADO可以连结Access和Excel。—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

用Delphi的DataPump就可以了，要写程序可以用Delphi的BatchMove控件。
因为Excel也有数据库驱动，所以可以把Excel看成数据库。

Answer 3

要高手！靠！
学delphi不到两个月的低手我现在也知道怎么做。
但是没办法，人家要的是高手，不敢写下去。

Answer 4

虽然不是高手，但可以帮你，贴了代码给你：(以后别激兄弟们了，否则知道了也不告诉你)
1、添加一个ExcelApplication组件
2、添加一个ADOQuery,设置它的将属性为指向ACCESS表的数据源!并写上要操作的SQL语句为：select * from access_tbl 
var
aSheet:Variant;
i:integer;begin
//显示Ms-excel的执行过程
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.WorkBooks.Add(xlWBATWorksheet,1);
aSheet:=ExcelApplication1.Worksheets.Item[1];
aSheet.cells[1,1].Value:='ID;
aSheet.cells[1,2].Value:='field1';
....//asheet.cells[20,1].Value:='总计';
i:=2;
with adoquery1 do
 begin  first;   while not eof do begin
  aSheet.cells[i,1].Value:=FieldbyName('id').AsInteger;
  aSheet.cells[i,2].Value:=FieldbyName('field1').Asstring;
    i:=i+1;  next;
 //aSheet.SaveAs('d:\qqq.xls');
 // OleContainer1.CreateobjectFromFile('d:\qqq.xls',false);
// aSheet.Application1.quit;  end;
end;这样的话，你的一个从ACCESS导到EXCEL的代码就写完了，如果要写从EXCEL到ACCESS的话，你只要反过来写就行了!

Answer 5

！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！
现在坛子上怎么这么多病毒呀？？？？？？？？？？？
是I-WORD.NIMDA.E！！！！！！！！！！！！！！！！

Answer 6

什么非高手免近，笑死人了，哈哈哈，SO EASY的问题，一个只要稍微接触过ADO和COM的人都可以轻易写出！！！！！！！！！！！

Answer 7

我 不同意 你们的看法  提问 的方式 是不得体了一点 
  但 大家 也要 考虑一下 初学者的心情  
     毕竟 我们的 csdn 是 一个温暖的家庭

Answer 8

这就是：
CSDN的名声，是怎样在各个DELPHI论坛中越来越差，很多真正的高手已经离开了这里的原因了! 呵呵，我也是菜鸟一个

Answer 9

我是低手，还要看也回答。不过你要花点钱！！
去买本李维的Delphi 5.x ado/mts/com+高级程序设计 90无rmb!!里面有这类的东西，不过没有代码。
小子，看完后自已写吧！！

Answer 10

这也用高手，你水平太低了，用D6直接挂上ACCESSE和EXCEL，做一个循环就搞定。

Answer 11

算了，到此为止吧。大家不要嘲笑楼主啦，不愿回答就算了。CSDN需要高手和低手，高手们技术很好，值得学习。但低手们有股冲劲，CSDN中没了低手，就没那么火热了。大家说是不是？当然恶性灌水我也反对。

Answer 12

你这个问题有点可笑，首先你要把access的东西倒到excel也就是说要有两个完全一样兹短的数据表格才能倒，而你又要把这excel的东西到会access，你有这么高的条件，为什么不用sql server的功能作啊，这不是浪费时间吗，你要把这做成了，你干脆就做个myfine (myfine) sql server算了！

Answer 13

shit up!
小学生只要找到书都会的问题
高手？
高手！