在Delphi中导出Excel表的遇到的问题

Question

在Delphi中导出Excel表的遇到这样一个问题：
delphi操作excel的问题,复制了一个区域要粘贴到一个区域出错
执行语句  ExcelID.ActiveSheet.Range['A1'].PasteSpecial时 提示 ‘类rang的pastespecial的方法无效’
但是如果数据表里的数据比较少（2000多行）的时候是没有出错的，可以正常执行，一旦数据表里的数据较多（10000多行）的时候就出错了，请问高手，这是什么问题呢？如何解决呢？谢谢了！

Answer 1

ExcelApp.WorkSheets[1].Range['A1:A22'].Select;
    ExcelApp.CutCopyMode:=False;
    ExcelApp.selection.Copy;

Answer 2

从A1位置开始粘贴： 
ExcelApp.ActiveSheet.Range.[   'A1 '   ].PasteSpecial; 
从文件尾部开始粘贴： 
ExcelApp.ActiveSheet.Range.PasteSpecial;