请－－高手 帮忙 操纵delphi的

Question

如题，我想要把工作表里的a1－g1先复制  
在粘贴到a20－g20，请问如何作？？  
我作的选择是这样的：excelworksheet1.Range['a1','g1'].Select;  
通过编译，但复制、粘贴我就不会了，请给出比较详细的代码，我用的是控件连接的excel。

Answer 1

procedure copyandPaste;　　var　　v,sheet,range:variant;　　begin　　v:=createExecl;　　 
sheet:= v.workbooks[1].sheets[1];　　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];　　range.select; //选定要复制的表格　　range.copy; //复制选定的表格　　sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置　　sheet.paste； //粘贴表格　　end;