VBA代码执行时如何防止新工作簿激活导致屏幕切换？

嘿，这个问题我之前做VBA项目时也踩过坑！其实核心问题就是不要直接调用Activate方法——哪怕你关了ScreenUpdating，这个方法还是会强制把窗口焦点切换到新工作簿上。下面给你两个实用的解决思路：

1. 完全绕开Activate，用对象引用直接操作 #

这是最推荐的方案，不仅能避免窗口切换，还能让代码运行更高效、更稳定。新建工作簿时把它赋值给一个变量，之后所有操作都通过这个变量直接访问工作表和单元格，根本不用激活新工作簿。

示例代码：

Sub WorkWithNewWBWithoutActivate()
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    
    ' 关闭屏幕更新
    Application.ScreenUpdating = False
    
    ' 新建工作簿并赋值给变量，全程不激活
    Set targetWB = Workbooks.Add
    
    ' 直接操作新工作簿的工作表，无需Activate
    Set targetWS = targetWB.Worksheets("Sheet1")
    targetWS.Range("A1:A1000").Value = "批量数据" ' 插入大量数据的示例
    ' 其他数据插入、格式设置等操作...
    
    ' 保存新工作簿（如果需要）
    targetWB.SaveAs "D:\Projects\YourNewWorkbook.xlsx"
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

2. 若必须激活，操作后立刻切回原工作簿 #

如果你的代码里有一些依赖Activate的旧逻辑（比如某些特定的格式设置或插件操作），可以先记录当前激活的原工作簿，操作完新工作簿后立刻切回去。因为屏幕更新是关闭的，用户完全看不到切换的过程。

示例代码：

Sub SwitchBackToOriginalWB()
    Dim originalWB As Workbook
    Dim newWB As Workbook
    
    Application.ScreenUpdating = False
    
    ' 先记录当前的原工作簿
    Set originalWB = ActiveWorkbook
    
    ' 新建并激活新工作簿（假设必须这么做）
    Set newWB = Workbooks.Add
    newWB.Activate
    
    ' 执行你的数据插入等操作...
    ActiveSheet.Range("B1:B500").Value = "依赖激活的操作数据"
    
    ' 立刻切回原工作簿
    originalWB.Activate
    
    Application.ScreenUpdating = True
End Sub

额外提醒 #

• 尽量养成用对象引用操作的习惯，Activate和Select不仅会导致窗口切换，还会拖慢代码速度，而且容易因为窗口状态变化出现运行错误。
• 一定要确保代码最后把Application.ScreenUpdating设回True，不然Excel会一直处于屏幕锁定状态，影响后续操作。

内容的提问来源于stack exchange，提问作者Kesavan Annamalai