将工作表复制到打开的工作簿而不离开当前工作簿？

我是VBA代码的新手。 到目前为止，我已经成功地将我想要的工作表复制到另一个打开的工作簿。 如何在不离开当前工作簿的情况下做到这一点？

我已经find答案，并尝试Application.ScreenUpdating =假，但是这似乎没有任何效果，也许我没有正确使用这个？

这是我到目前为止，它相当简单，但它的工作到复制工作表。

Sub Sample1() Application.ScreenUpdating = False Workbooks("Workbook1.xlsm").Sheets("Sheet1").CopyAfter:=Workbooks("Workbook2.xlsm").Sheets("Copy_After") Application.ScreenUpdating = True End Sub 

Answer 1

所有你需要做的就是logging你的脚本开始的哪个表是ActiveSheet ，一旦你的脚本完成后Activate它。

 Sub Sample1() Dim OriginalSheet as Worksheet Application.ScreenUpdating = False OriginalSheet = ActiveSheet Workbooks("Workbook1.xlsm").Sheets("Sheet1").CopyAfter:=Workbooks("Workbook2.xlsm").Sheets("Copy_After") OriginalSheet.Activate Application.ScreenUpdating = True End Sub