将数据复制到另一个工作簿时，VBA Excel无响应

Question

我使用这个简单的代码将工作簿1中的工作表复制到同一文件夹中的工作簿2中。

Sub Button27_Click()
   Application.ScreenUpdating = False
   Dim FileName As String
   Workbooks.Open FileName:=ActiveWorkbook.Path & "\sefaresh.xlsm"
   Application.Wait (Now + TimeValue("0:00:01"))
   ThisWorkbook.Sheets("Sheet3").Copy
   After:=Workbooks("sefaresh.xlsm").Sheets(Sheets.Count)
   Application.ScreenUpdating = True
End Sub

复制和粘贴功能处理成功，但如果我先关闭工作簿2，我就没有响应excel。有什么建议吗？

由于

Answer 1

试试这个（未经测试）。你现在不应该得到错误。

如果使用对象，事情变得更容易：）

ng-change