为什么VB的Shell函数调用Python时执行窗口不会停留？

• 带空格的文件路径未使用双引号包裹，导致Shell调用时无法正确识别Python可执行文件路径，程序启动直接报错闪退，脚本内的循环、暂停逻辑完全没有执行机会。
  Windows系统执行命令时默认以空格作为参数分隔符，当前使用的Python路径、脚本路径都包含带空格的目录（如Program Files (x86)、OneDrive - MS Corporation），未加引号的情况下，系统会将空格前的部分识别为可执行文件路径，后续内容识别为无效参数，无法正常启动Python运行目标脚本。
• Shell函数默认异步执行，若需要等待Python脚本执行完毕再运行后续VBA逻辑，还需要调整调用方式。

1. 调整VBA代码 #

路径需要用双引号包裹，VBA中双引号需要用两个双引号转义，修改后代码如下：

Sub run_python()
    
    python_exe = """C:\Program Files (x86)\Microsoft Visual Studio\Shared\Python37_64\python.exe"""
    python_script = """C:/Users/Goerge/OneDrive - MS Corporation/Documents/Development/python-excel/excel_python.py"""
    
    If Dir(Replace(python_exe, """", "")) = "" Then
        MsgBox ("Python executable does not exists")
        Exit Sub
    End If
    
    If Dir(Replace(python_script, """", "")) = "" Then
        MsgBox ("Python script does not exists")
        Exit Sub
    End If
    
    ' 方案1：仅需启动Python脚本，无需等待执行完成
    python_code = python_exe & " -k " & python_script
    RetVal = Shell(python_code, vbNormalFocus)

    ' 方案2：需要等待Python脚本执行完成后再执行后续VBA逻辑，替换上面两行即可
    ' Dim wsh As Object
    ' Set wsh = VBA.CreateObject("WScript.Shell")
    ' Dim waitOnReturn As Boolean: waitOnReturn = True
    ' Dim windowStyle As Integer: windowStyle = 1
    ' python_code = python_exe & " " & python_script
    ' wsh.Run python_code, windowStyle, waitOnReturn
    
End Sub

2. Python脚本调整说明 #

现有脚本中的os.system("pause")、input暂停逻辑、长循环逻辑均可正常生效，无需额外修改。如果VBA调用时保留了-k参数，Python脚本执行完成后窗口会自动保持打开状态，无需额外加暂停逻辑也能看到完整输出。

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