Windows升级后Excel宏无法通过任务计划程序非交互式运行的问题

针对你遇到的问题，以下是经过验证的解决步骤：

1. 配置Excel的DCOM权限 #

非交互式会话下，SYSTEM账户需要足够权限启动和操作Excel：

• 按下Win+R输入dcomcnfg打开组件服务
• 依次展开：组件服务 > 计算机 > 我的电脑 > DCOM配置
• 找到Microsoft Excel Application，右键选择「属性」
• 切换到「安全」选项卡：
  • 「启动和激活权限」选「自定义」，点击「编辑」，添加SYSTEM账户，赋予「本地启动」和「本地激活」权限
  • 「访问权限」同样选「自定义」，点击「编辑」，添加SYSTEM账户，赋予「本地访问」权限
• 切换到「身份」选项卡：
  • 选「交互式用户」（若任务运行时可能有用户登录），或「指定用户」并输入具备文件访问和Excel运行权限的账户（更稳定）

2. 修正宏代码中的潜在问题 #

你的宏依赖ActiveWorkbook和直接文件名引用工作簿，非交互式环境下易出错，修改如下：

Sub MegaMacro()
    Dim metaData As String
    Dim wb As Workbook
    Dim Drive As String
    
    ' 清理文件名，避免多余空格或格式问题
    metaData = Trim(Range("metaData").Value)
    Drive = "D:\Build\SAP\Broadcasts\"
    
    ' 用变量保存打开的工作簿，避免文件名引用错误
    Set wb = Workbooks.Open(Filename:=Drive & metaData, UpdateLinks:=False, ReadOnly:=True)
    wb.Close SaveChanges:=False ' 明确不保存更改
    
    ' 直接引用当前工作簿，而非依赖ActiveWorkbook
    ThisWorkbook.SaveCopyAs Filename:="D:\Build\SAP\Broadcasts\test.xls"
End Sub

3. 确保文件夹权限 #

• 检查D:\Build\SAP\Broadcasts\文件夹权限，给SYSTEM账户添加「读取」和「写入」权限（保存副本需要写入权限）
• 确保目标文件test.xls不存在时可正常创建，存在时能被覆盖（需覆盖可在代码前添加删除逻辑，或确认权限允许覆盖）

4. 禁用Excel硬件加速 #

非交互式会话无图形界面，硬件加速会导致Excel崩溃：

• 手动登录服务器打开Excel
• 点击「文件 > 选项 > 高级」
• 找到「显示」部分，取消勾选「使用硬件图形加速（如果可用）」
• 保存设置后关闭Excel

5. 检查任务计划的细节配置 #

• 任务「操作」中，批处理文件路径若含空格需用引号包裹，比如"C:\Scripts\run_macro.bat"
• 「设置」选项卡，勾选「允许任务按需运行」，取消「如果任务运行时间超过指定时间就停止」的选项
• 确保任务「运行用户」权限足够，选择「无论用户是否登录都运行」时，勾选「最高权限运行」

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