EXCEL的复制、粘贴问题

[野梨子]

try
ExcelApplication1.Connect;//打开Excel
Except
MessageDlg('Excel没有被安装！',mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0] := true; //显示当前窗口
Excelapplication1.Workbooks.Open(pchar(dest),
null,null,null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL 文件
Excelworkbook1.Connectto(ExcelApplication1.workbooks[1]);
Excelworksheet1.Connectto(Excelworkbook1.sheets[1] as _worksheet);
Excelworksheet1.cells.Item[6,2] := datetostr(dtp.Date);
Excelworksheet1.Cells.Item[6,5] := txtckdh.Text;
Excelworksheet1.cells.Item[6,7] := txtjzxh.Text;
　Excelworksheet1.Range[Excelworksheet1.cells.Item[6,1],Excelworksheet1.cells.Item[6,16]].Copy;
现在我要实现对上面这条记录进行复制、粘贴，用到COPY、PasteSpecial，却实现不了，谁有这方面的资料或做过，请帮忙指点，谢谢

[野梨子]

试过，不行啊

[feibob]

要把你想复制的整个区域都选定。
Range(’A1:I1‘).Select；
Selection.Copy；
Range(’A2‘).Select；
ActiveSheet.Paste；
把你要的区域选定得用一个小过程把你的选定区域的形式表现成(’A1:I1‘)的形式再COPY、Paste.

[野梨子]

我已经解决了