Excel VBA后台复制工作表异常：打开源文件后执行终止问题

核心问题场景 #

从Google Drive下载myUnits_template.xls到test_Units.xls同目录后，执行VBA试图将源文件的myUnits工作表复制到指定工作表后，但Workbooks.Open(filePath)打开文件后，代码直接终止，后续复制语句未执行；仅断点调试、新建工作簿中运行宏时正常。

可能原因与解决方法 #

1. 事件触发打断代码执行 #

打开文件时，源文件或当前工作簿的自动事件（如Workbook_Open、SheetActivate）会中断当前代码流程。临时禁用事件即可解决：

Dim wbSource As Workbook
Dim maSheet As Worksheet

' 提前指定目标工作表，避免依赖活动对象
Set maSheet = ThisWorkbook.Worksheets("你的目标工作表名")

' 禁用事件，防止自动宏打断代码
Application.EnableEvents = False
Set wbSource = Workbooks.Open(filePath)

' 执行复制操作
wbSource.Worksheets("myUnits").Copy After:=maSheet

' 关闭源文件，不保存修改
wbSource.Close SaveChanges:=False

' 恢复事件触发
Application.EnableEvents = True

2. 源文件存在自动运行宏 #

如果myUnits_template.xls内置了Workbook_Open宏或其他自动执行代码，会抢占当前代码的执行权。打开时可添加参数规避：

' 以只读模式打开，避免触发源文件的写相关自动宏
Set wbSource = Workbooks.Open(filePath, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)

也可以直接打开源文件，删除或禁用其内置的自动宏。

3. 界面更新干扰代码流程 #

频繁的界面切换（如打开文件时的窗口激活）可能导致代码异常终止，关闭屏幕更新可缓解：

Application.ScreenUpdating = False

' 你的核心代码
' ...

Application.ScreenUpdating = True

4. 避免依赖活动对象 #

不要依赖ActiveWorkbook、ActiveSheet这类动态对象，显式指定工作簿和工作表的引用，确保代码上下文稳定：

' 明确指向当前运行宏的工作簿（test_Units.xls）
Dim wbTarget As Workbook
Set wbTarget = ThisWorkbook

' 明确指定目标工作表
Set maSheet = wbTarget.Worksheets("目标表名称")

内容的提问来源于stack exchange，提问作者Michael Hanyak