非常感谢！
9 个解决方案
#1
高手快来呀！
#2
用OleVariant从 Sheet2中读取记录,添加到sheet1中.
可以在网上搜索此方面的内容:Delphi控制Excel
用Ado做为数据源可以从Sheet2中读取到数据,但Excel不支持Ado的添加操作.
可以在网上搜索此方面的内容:Delphi控制Excel
用Ado做为数据源可以从Sheet2中读取到数据,但Excel不支持Ado的添加操作.
#3
不是很想这么操作。
这方面的资料也查了，也看了，但现在的问题是要连格式一起拷贝。
所以，我想直接对象拷贝的。
这方面的资料也查了，也看了，但现在的问题是要连格式一起拷贝。
所以，我想直接对象拷贝的。
#4
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里操作，你可以适当变换下
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里操作，你可以适当变换下
#5
同意楼上的方法。
#6
非常感谢 xiaonanw的帮助
但我想能不能不到cells层，直接在sheet整体操作，就象ASSIGN一样！
但我想能不能不到cells层，直接在sheet整体操作，就象ASSIGN一样！
#7
没有答案吗？
斑竹过来帮我啊！
斑竹过来帮我啊！
#8
这我还不知道怎么做，帮你顶下，我也学习
#9
顶！
#1
高手快来呀！
#2
用OleVariant从 Sheet2中读取记录,添加到sheet1中.
可以在网上搜索此方面的内容:Delphi控制Excel
用Ado做为数据源可以从Sheet2中读取到数据,但Excel不支持Ado的添加操作.
可以在网上搜索此方面的内容:Delphi控制Excel
用Ado做为数据源可以从Sheet2中读取到数据,但Excel不支持Ado的添加操作.
#3
不是很想这么操作。
这方面的资料也查了，也看了，但现在的问题是要连格式一起拷贝。
所以，我想直接对象拷贝的。
这方面的资料也查了，也看了，但现在的问题是要连格式一起拷贝。
所以，我想直接对象拷贝的。
#4
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里操作，你可以适当变换下
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里操作，你可以适当变换下
#5
同意楼上的方法。
#6
非常感谢 xiaonanw的帮助
但我想能不能不到cells层，直接在sheet整体操作，就象ASSIGN一样！
但我想能不能不到cells层，直接在sheet整体操作，就象ASSIGN一样！
#7
没有答案吗？
斑竹过来帮我啊！
斑竹过来帮我啊！
#8
这我还不知道怎么做，帮你顶下，我也学习
#9
顶！