Excel VBA调用Python生成图片失败：控制台闪退无报错求助

以下是针对问题的具体修复方案：

1. 修复路径拼接错误 #

你的VBA代码中，Python解释器路径和脚本路径直接拼接，缺少必要的空格，导致命令格式错误。修改代码，在两个路径之间添加空格：

Sub RunPythonScript_1()

Dim objShell As Object
Dim PythonExePath, PythonScriptPath As String

    Set objShell = VBA.CreateObject("Wscript.Shell")
    
    PythonExePath = """C:\Users\227871\AppData\Local\Microsoft\WindowsApps\python.exe"""
    PythonScriptPath = """C:\Users\227871\OneDrive - Weir Group PLC\Francisca\Mejora App Weir\Balance\Balance Collahuasi\Balance 1.py"""
    
    ' 添加空格分隔解释器和脚本路径
    objShell.Run PythonExePath & " " & PythonScriptPath
    
End Sub

2. 更换Python解释器路径 #

WindowsApps下的python.exe通常是系统跳转链接，并非实际的Python解释器，可能导致环境不一致。找到你在Jupyter/VS Code中使用的Python实际路径（比如Anaconda环境或本地安装的Python），替换PythonExePath：

' 示例：Anaconda环境路径
PythonExePath = """C:\Users\227871\anaconda3\python.exe"""
' 或者本地安装的Python路径
PythonExePath = """C:\Users\227871\AppData\Local\Programs\Python\Python311\python.exe"""

3. 保持控制台窗口打开以排查错误 #

控制台闪退是因为脚本执行完成（或出错）后立即关闭，无法看到错误信息。修改objShell.Run的参数，让窗口保持打开：

' 使用cmd /k 命令，执行完脚本后保留控制台窗口
objShell.Run "cmd /k " & PythonExePath & " " & PythonScriptPath

这样就能看到Python脚本执行时的错误提示（比如找不到Excel文件、缺少依赖库等）。

4. 确保Python脚本的路径正确性 #

• 如果脚本中用相对路径读取Excel或保存图片，运行时的工作目录是Excel文件所在位置，而非脚本所在目录。建议在Python脚本中使用绝对路径：

  # 示例：用绝对路径读取Excel
  import pandas as pd
  excel_path = r"C:\Users\227871\OneDrive - Weir Group PLC\Francisca\Mejora App Weir\Balance\Balance Collahuasi\你的数据文件.xlsx"
  df = pd.read_excel(excel_path)
  
  # 示例：用绝对路径保存图片
  plt.savefig(r"C:\Users\227871\OneDrive - Weir Group PLC\Francisca\Mejora App Weir\Balance\Balance Collahuasi\output.jpg")
  

• 或者在VBA中先切换到脚本所在目录再执行：

  ' 获取脚本所在目录
  Dim scriptDir As String
  scriptDir = Left(PythonScriptPath, InStrRev(PythonScriptPath, "\") - 1)
  ' 切换工作目录
  objShell.CurrentDirectory = scriptDir
  ' 再执行脚本
  objShell.Run PythonExePath & " " & PythonScriptPath
  

内容的提问来源于stack exchange，提问作者Francisca Canales Rojas