在delphi如何实现在Excel中从sheet1中复制一个表到sheet2中！！！(50分)

如何实现？？？？

ExcelApp.WorkSheets[1].Activate;//设定第一个工作表为活动工作表
ExcelApp.ActiveSheet.Used.Range.Copy; //拷贝整个工作表
设定第二个工作表为活动工作表
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;//从a1位置开始粘贴

当然先得创建 ExcelApp