通过Excel VBA运行Python脚本时窗口闪退无执行输出问题求助

核心错误是可执行文件路径与脚本路径拼接时缺少空格，你当前代码中PythonExe & PythonScript的拼接结果会是两个带引号的路径直接连在一起，系统无法识别为「Python解释器 + 待执行脚本」两个独立参数，因此触发执行错误直接闪退。
其次WScript.Shell的Run方法默认不会等待程序执行完成、也不会强制保持窗口显示，也会导致脚本还没执行完窗口就被关闭。

修正后的VBA代码 #

Sub RunPython()
    Dim objShell As Object
    ' 显式声明两个变量均为String类型，原写法中PythonExe会被默认定义为Variant
    Dim PythonExe As String, PythonScript As String
    Dim runCmd As String
    Set objShell = VBA.CreateObject("Wscript.Shell")
    
    PythonExe = """C:\Users\carlo\AppData\Local\Microsoft\WindowsApps\python3.exe"""
    PythonScript = """C:\Users\carlo\Desktop\MSc_Thesis\ML applications\BlackBox\BlackBoxAbsorbers.py"""
    ' 拼接时在两个路径中间加空格
    runCmd = PythonExe & " " & PythonScript
    
    ' Run方法参数说明：
    ' 第一个参数：待执行的命令
    ' 第二个参数：1=正常显示窗口，避免后台运行
    ' 第三个参数：True=VBA等待Python脚本执行完成后再继续，避免提前关闭窗口
    objShell.Run runCmd, 1, True
    
    Set objShell = Nothing
End Sub

补充排查方案 #

如果修改后仍有问题可以按以下步骤排查：

• 把拼接后的runCmd内容通过Debug.Print runCmd输出到VBA的立即窗口，复制内容直接贴到CMD运行，看是否有报错信息
• 确认你的python3.exe确实对应你常用的解释器环境，避免Windows应用商店的Python别名指向异常，可以替换为你实际安装Python路径下的exe绝对地址

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