关于Excel的复制工作表

Question

在VBA中以下语句可能复制出一个与原表一模一样的表，太爽了，真的没有一点不同的，除了标签，但现在我想要在VB中使用这个方法，直接用以下语句好象不行，我该怎么改呢，请达人帮帮我！小弟不甚感激！
Sheets("Sample").Copy After:=Sheets(1)

Answer 1

Me.Excel.ActiveWorkbook.ActiveSheet.Copy(After:=Me.Excel.ActiveWorkbook.ActiveSheet)

Answer 2

一个很好的办法就是在excel里用录制宏的方法得到语句代码，就是说在excel里先打开录制宏，然后做复制表的操作，这样在宏里就有这个操作的代码，把代码直接复制到vb中就行了。