excel - 复制工作表并获取结果工作表对象？

Question

是否有任何简单/简短的方法来获取复制工作表时获得的新工作表的工作表对象？

ActiveWorkbook.Sheets("Sheet1").Copy after:=someSheet

事实证明，.Copy 方法返回的是 bool 值而不是工作表对象。否则，我本可以这样做:

set newSheet = ActiveWorkbook.Sheets("Sheet1").Copy after:=someSheet

因此，我编写了大约 25 行代码来获取该对象。列出副本之前的所有工作表，列出之后的所有工作表，并找出仅第二个列表中的哪一个。

我正在寻找一种更优雅、更短的解决方案。

Answer 1

Dim sht 

With ActiveWorkbook
   .Sheets("Sheet1").Copy After:= .Sheets("Sheet2")
   Set sht = .Sheets(.Sheets("Sheet2").Index + 1)
End With