远程登录会话下VBA调用Shell执行Python脚本无效果问题咨询

核心问题成因 #

以下问题叠加是导致代码在远程会话下静默无输出的根本原因，没有触发VBA报错是因为子进程的执行错误没有被回传到主程序：

• 工作目录传递失效：原代码中的ChDir ThisWorkbook.Path仅修改VBA自身进程的工作目录，不会同步给后续通过WScript.Shell启动的独立cmd子进程。手动打开PowerShell能正常运行，是因为交互式PowerShell的默认打开路径就定位在电子表格所在目录；但VBA唤起的cmd初始路径完全不受VBA内部ChDir操作的影响，自然找不到当前目录下的Python脚本和关联输入文件。
• 跨盘符路径切换的cmd规则限制：cmd的目录切换逻辑和PowerShell有本质区别——跨盘符访问时，必须单独执行对应盘符命令（如D:）才能完成切换，仅靠cd命令是无法从C盘/H盘直接进入D盘路径的，这也是你手动打开默认在H盘的cmd时，无法正常切到电子表格所在D盘目录的原因。
• 原代码存在参数传递遗漏：代码中定义了waitOnReturn = True变量，但调用wsh.Run时完全没有传入这个参数，也没有配置子进程的默认工作目录。导致子进程启动后VBA不会等待其执行完成，且子进程出现的任何报错（如找不到解释器、找不到文件）都不会被主程序捕获，最终表现为“代码不报错但完全没有输出”。
• 远程会话的环境变量隔离：手动开PowerShell能正常运行Python，是因为当前交互式登录会话继承了当前用户配置的Python PATH变量；但VBA唤起的非交互子进程，很多时候不会加载当前用户的环境变量配置，尤其是Python如果安装时选择了“仅为当前用户安装”，对应的PATH配置只会在交互式登录会话生效，非交互子进程根本识别不到python命令，直接静默退出。

可落地的解决方案 #

• 修正RunCmd过程的逻辑，不依赖隐式的目录、环境变量配置，全部用明确的绝对路径传递参数，参考修改后的代码：

Sub RunCmd(cmd)
    Dim wsh As Object
    Dim workDir As String
    Set wsh = VBA.CreateObject("WScript.Shell")
    ' 明确指定电子表格所在的工作目录
    workDir = ThisWorkbook.Path
    ' 自动拆分盘符，拼接兼容cmd规则的执行命令：先切到对应盘符，再进入工作目录，最后执行目标命令
    Dim drivePart As String
    drivePart = Left(workDir, 2)
    Dim fullCmd As String
    fullCmd = drivePart & " & cd /d """ & workDir & """ & " & cmd
    ' 三个参数：执行的完整命令、窗口样式（0=后台隐藏执行不弹黑框）、是否等待子进程执行完成（True）
    wsh.Run fullCmd, 0, True
End Sub

• 调用Python时不依赖系统PATH配置，直接传入python.exe的绝对路径，把原来的调用语句从：
  Call RunCmd("python37 get_eff_req_data.py HPBoiler_RunMgr_v00.txt")
  修改为指定解释器完整路径的版本：
  Call RunCmd("C:\Python37\python.exe get_eff_req_data.py HPBoiler_RunMgr_v00.txt")
  从根源上避免非交互子进程找不到Python解释器的问题。
• 排查远程会话的权限配置：
  • 确认远程会话里的H盘是系统本地硬盘，不是远程桌面连接时映射的本地网络驱动器——这类映射盘仅对当前交互式登录会话可见，VBA唤起的子进程没有访问权限，会直接执行失败。
  • 如果Python是安装在当前用户目录下的，建议卸载后重新安装，安装时选择“为所有用户安装”，确保非交互子进程也能正常识别Python路径。

排查辅助技巧：可以临时把wsh.Run里的窗口样式参数从0改成1，让子进程的cmd窗口显示在前台，执行时就能直观看到具体的报错信息（如“找不到文件”“不是内部或外部命令”），不用盲猜问题原因。

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