如何在计算机关闭状态下定时刷新服务器上关联PLSQL查询的Excel文件

核心问题说明 #

你当前使用的VBA方案不生效是必然结果：Application.OnTime方法完全依赖Excel进程保持运行状态，只要本地计算机关闭、或者Excel程序退出，定时任务就会直接失效，无法触发执行。

可行实现方案 #

方案1：服务器端部署定时任务+无界面Excel自动化 #

要求存放Excel的服务器为Windows系统，且安装了对应版本的Office Excel：

• 首先补全VBA逻辑，将原代码中的code()替换为实际的刷新逻辑，调整后完整代码如下：

Sub MyCode2()
    ' 刷新所有数据连接（包含关联PLSQL的查询连接）
    ThisWorkbook.RefreshAll
    ' 等待所有刷新操作完成
    Do While Application.CalculationState = xlCalculatingPending Or Application.CalculationState = xlCalculating
        DoEvents
    Loop
    ' 保存文件后关闭Excel进程
    ThisWorkbook.Save
    Application.Quit
End Sub

Sub Auto_Open()
    ' 打开文件后直接执行刷新，定时逻辑交给系统任务计划实现
    Call MyCode2
End Sub

• 打开服务器端的「任务计划程序」，新建定时任务：
  • 触发器设置为你需要的指定执行时间，例如每天凌晨1点
  • 操作设置为「启动程序」，程序路径选择Excel的安装路径，参数填写目标Excel文件的完整服务器路径，示例："C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" "\\服务器地址\共享文件夹\目标文件.xlsm"
  • 安全选项勾选「不管用户是否登录都要运行」，确保不需要登录服务器也能正常执行
  • 额外设置勾选「任务失败后按间隔重启」，避免偶发执行异常

方案2：轻量化无Excel方案 #

如果服务器不适合安装Excel，直接把PLSQL查询逻辑抽离，用Python/PowerShell脚本实现数据查询+写入Excel的逻辑，再将脚本挂载到服务器定时任务中，资源占用更低，稳定性更高。

注意事项 #

• 确保Excel中的PLSQL连接配置在服务器环境可正常访问，不要使用仅本地可用的连接驱动、账号权限
• Excel文件需保存为.xlsm启用宏的格式，同时将服务器路径加入Excel的信任位置，避免宏被安全机制拦截无法执行

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