Excel 2016与2019 VBA兼容性问题：激活指定工作簿代码报错

首先明确：Excel 2016和2019的VBA核心语法不存在导致Workbooks("Weekly Template").Activate失败的差异，该语句在两个版本中都是合法且功能一致的，问题大概率出在以下细节上：

可能的报错原因 #

• 工作簿名称的扩展名差异：
  你的系统可能开启了「隐藏已知文件类型的扩展名」，所以看到的工作簿名称是Weekly Template，但同事的Excel 2016如果显示扩展名（比如设置里没隐藏），那么Workbooks集合中该工作簿的实际名称是Weekly Template.xlsx（或对应格式的后缀），代码里用无后缀名称自然找不到。
• 名称拼写/格式问题：
  检查是否存在全角空格、大小写不一致（虽然Windows下VBA默认不区分大小写，但特殊字符可能导致匹配失败），或者同事打开的工作簿名称有细微拼写差异。
• 工作簿不在当前Excel实例：
  如果同事的Weekly Template是在另一个独立的Excel进程中打开的，当前代码所在的Workbooks集合无法跨实例访问，自然激活失败。
• 工作簿未正常打开或被隐藏：
  确认同事是否真的打开了目标工作簿，或者工作簿处于隐藏状态（虽然Activate理论上能激活隐藏工作簿，但部分场景下可能出现异常）。
• 宏安全设置限制：
  Excel 2016的宏安全策略可能更严格，比如禁用了跨工作簿操作的宏权限，导致代码执行被阻断。

排查与修复建议 #

1. 验证工作簿实际名称：
   让同事在VBA编辑器中按Ctrl+G打开立即窗口，依次执行以下命令，查看当前打开的工作簿列表：

   ?Workbooks.Count '查看当前打开的工作簿总数
   ?Workbooks(1).Name '查看第一个工作簿的名称
   ?Workbooks(2).Name '查看第二个工作簿的名称（根据总数调整序号）
   

   对比输出的名称和代码中使用的Weekly Template是否一致。
2. 改用对象变量规避名称问题：
   修改代码，先获取工作簿对象再执行激活操作，同时增加错误捕获，便于定位问题：

   Dim targetWb As Workbook
   '尝试获取目标工作簿对象
   On Error Resume Next
   Set targetWb = Workbooks("Weekly Template")
   '如果无后缀名称失败，尝试带后缀的情况
   If targetWb Is Nothing Then
       Set targetWb = Workbooks("Weekly Template.xlsx")
   End If
   On Error GoTo 0
   
   If Not targetWb Is Nothing Then
       targetWb.Activate
   Else
       MsgBox "无法找到名为「Weekly Template」的工作簿，请确认其已打开且名称正确"
   End If
   

3. 检查Excel实例与设置：
   让同事确认Weekly Template和PegName是否在同一个Excel窗口中打开；同时检查Excel选项中的「信任中心」-「信任中心设置」，确保宏权限未被过度限制。

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