VBS执行Application.Run调用Excel宏时报错1004，求助排查

以下是针对你遇到的1004错误的具体排查方向和解决方法：

1. 修正VBS代码基础错误 #

你的代码存在方法名拼写错误：oFSO.FileExist 应改为 oFSO.FileExists（缺少末尾的s），虽然你的日志已写入"File Exists"，但仍建议修正该逻辑避免后续问题。

2. 显式打开Excel工作簿再执行宏 #

Application.Run调用宏时，需确保目标工作簿已加载到Excel实例中——你当前的代码未显式打开文件，这是1004错误的核心诱因之一。修改代码如下：

' 替换原有的Application.Run相关代码段
Set oWorkbook = oExcel.Workbooks.Open("C:\scripts\Excel Files\my_excel_file.xlsm")
oFile.WriteLine "Workbook opened successfully"
' 若宏在标准模块中，直接调用；若在ThisWorkbook模块，需改为'my_excel_file.xlsm'!ThisWorkbook.RefreshAll
oExcel.Application.Run "'my_excel_file.xlsm'!RefreshAll"
' 执行完成后保存并关闭工作簿
oWorkbook.Save
oWorkbook.Close

3. 检查Excel宏信任与权限设置 #

• 将C:\scripts\Excel Files添加到Excel信任中心的受信任位置，避免远程桌面环境下Excel默认禁用宏。
• 确认RefreshAll宏为公共（未声明为Private），且存放于标准模块中，而非工作表或ThisWorkbook模块（若在后者，需调整调用格式）。

4. 优化Task Scheduler执行配置 #

即使日志可正常写入，仍需确认：

• 任务安全选项勾选「不管用户是否登录都要运行」，且所用账户拥有C盘文件访问权和Excel操作权限。
• 勾选「以最高权限运行」，规避权限不足导致的操作失败。
• 将操作的「起始于」字段设置为C:\scripts\Excel Files，确保Excel能正确定位文件路径。

5. 禁用Excel后台交互弹窗 #

Task Scheduler运行时Excel处于无界面模式，更新链接、文件保护等弹窗会触发错误，打开文件前添加以下代码禁用交互：

oExcel.Visible = False
oExcel.DisplayAlerts = False
oExcel.AskToUpdateLinks = False

6. 完善错误日志信息 #

修改日志代码，记录更详细的错误上下文，便于定位问题：

if err.number <> 0 then
    oFile.WriteLine "Error running macro: " & err.number & " - " & err.description
    oFile.WriteLine "Target path: 'C:\scripts\Excel Files\my_excel_file.xlsm'!RefreshAll"
end if

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