打开工作簿拷贝内容到当前工作簿指定表提示 代码被中断

qwasd3

一直使用都正常，今天运行时突然就报错了，代码都没动过，EXCEL也没重装过，奇怪了！
请各大神指教下，报错会在打开工作簿，有时在 mydata(0)赋值这里。。


代码如下：

1. Dim x001(5) As String
   
2. Dim MyPath(10)
   
3. Dim MyData(10)
   
4. 
   
5. x001(2) = "A2"
   
6. x001(3) = "A3"
   
7. 
   
8. MyPath(0) = ActiveWorkbook.Path & "\结存.xlsx"
   
9. 
   
10. '清空当前工作表指定区域所有数据
    
11. Sheet3.Range("A3:N65536") = ""
    
12. '打开期初工作簿
    
13. Workbooks.Open Filename:=MyPath(0)
    
14. 
    
15. MyData(0) = Range(x001(2), Range("N65536").End(3))
    
16. 
    
17. '关闭当前工作簿
    
18. ActiveWorkbook.Close
    
19. 
    
20. Sheet3.Range(x001(3)).Resize(UBound(MyData(0)), UBound(MyData(0), 2)) = MyData(0)

复制代码

ione_fox

附件 二个表

qwasd3

网上找到一个方法：
在VBE中，按Ctrl+Pause，然后在“运行”

问题解决了，，但不知为何？？真是奇迹。。。