请教：我有两个Excel,怎么把第一个Excel中的Sheet复制到第二个Sheet中去。

Question

请教：我有两个Excel,怎么把第一个Excel中的Sheet复制到第二个Sheet中去。
非常感谢！

Answer 1

用OleVariant从 Sheet2中读取记录,添加到sheet1中.
可以在网上搜索此方面的内容:Delphi控制Excel用Ado做为数据源可以从Sheet2中读取到数据,但Excel不支持Ado的添加操作.

Answer 2

var
 sheet,range:variant;
然后
sheet:= excelapplication1.workbooks[1].sheets[1];
range:=sheet.range[sheet.cells[1,1],sheet.cells[2,12]];
range.select; //选定要复制的表格
range.copy; //复制选定的表格
sheet.range[sheet.cells[zongshu+1,1],sheet.cells[zongshu+2,12]].select; //选择要粘贴的位置
sheet.paste;
我想这个对你有帮助，你可以自己转化一下，就可以用了，这是我写的，在同一个sheet里操作，你可以适当变换下

Answer 3

非常感谢 xiaonanw的帮助
但我想能不能不到cells层，直接在sheet整体操作，就象ASSIGN一样！