★★再问如何在EXCEL里复制SHEET★★

[猪仔庆]

我用动态创建的方法打开了自己设计好的EXCEL文件，想用其中的某个模板sheet复制出新的sheet，并在新的sheet上填写自己要的内容。
我的做法如下：
------------------------------------------------------------------------
//激活模板SHEET
MyworkBook.WorkSheets['模板sheet'].Activate;
//拷贝
MyworkBook.ActiveSheet.UsedRange.Copy;
//新增sheet
MyworkBook.Worksheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
//修改新增sheet的名字
MyworkBook.Worksheets.Item[MyworkBook.Worksheets.Count].name:='新sheet';
//激活新增的sheet
MyworkBook.WorkSheets[sheetname].Activate;
//粘贴模板的内容
MyworkBook.ActiveSheet.Range['A1'].PasteSpecial;
-----------------------------------------------------------------------

但最后的结果却是：
1. 它把'新sheet'创建到一个新的excel文件中了(我要的是在原来的excel文件中新增sheet)；
2. 新的那个excel文件中存在两个sheet, 一个是空白的'sheet1'，另一个是通过模板复制出来的'新sheet'（而且也只复制了字符和字体格式，我在模板中调好的单元格合并等样式都复制不过来）；
3. 当前活动sheet没有设为'新sheet'，而是空白的'sheet1'，我的东西全写到那儿了。

请问该如何解决？？？叩谢各位大虾了！

[copy_paste]

你可以试试用录制宏的方法，将一个Active Sheet copy to UnActive Sheet，
然后看看那宏的命令是什么，然后照搬到Delphi中，不断地试验就行了。

没心情试，不好意思。自己做做。

[猪仔庆]

在EXCEL宏里面的那些命令，我已经换来换去试过好久了，还是不行，哪位大虾救命啊！

[WWWWA]

你添加一个WORKSHEET试试。我用SERVER组件。