如何让VBA调用Shell执行Python脚本后CMD窗口保持打开？

问题描述 #

我通过VBA的Shell()函数执行.py格式的Python脚本，使用的VBA代码如下：

Sub Run_Python()
    
    Dim PYTHON_FULL_PATH, PYTHON_SCRIPT_PATH As String   
    iRowNo = 2
    Do Until Sheet7.Cells(iRowNo, 1) = ""
        PYTHON_FULL_PATH = Sheet7.Cells(iRowNo, 1)
        PYTHON_SCRIPT_PATH = Sheet7.Cells(iRowNo, 2)
    
        iRowNo = iRowNo + 1
    Loop
    
    RetVal = Shell(PYTHON_FULL_PATH & " " & PYTHON_SCRIPT_PATH, vbNormalFocus)
    

End Sub

Python脚本运行时会在CMD窗口打印内容，但执行完成或报错后CMD窗口会自动关闭。请问有没有办法让CMD窗口在执行完成后保持可见？

解决方案 #

方法1：通过cmd /k命令保持窗口打开 #

CMD的/k参数会在执行指定命令后保持窗口不关闭，只需修改VBA中的Shell调用语句：

Sub Run_Python()
    
    Dim PYTHON_FULL_PATH, PYTHON_SCRIPT_PATH As String   
    iRowNo = 2
    Do Until Sheet7.Cells(iRowNo, 1) = ""
        PYTHON_FULL_PATH = Sheet7.Cells(iRowNo, 1)
        PYTHON_SCRIPT_PATH = Sheet7.Cells(iRowNo, 2)
    
        iRowNo = iRowNo + 1
    Loop
    
    ' 用cmd /k包裹执行命令，路径含空格时用双引号包裹
    RetVal = Shell("cmd /k " & PYTHON_FULL_PATH & " """ & PYTHON_SCRIPT_PATH & """", vbNormalFocus)
    

End Sub

注意：如果Python脚本路径包含空格，必须用双引号包裹路径，避免命令解析错误。

方法2：在Python脚本末尾添加暂停语句 #

无需修改VBA代码，直接在Python脚本的最后添加一行暂停代码，让脚本执行完毕后等待用户输入再退出：

# 脚本末尾添加
input("执行完成，按任意键关闭窗口...")

这种方式适合仅需针对单个脚本设置的场景。

方法3：使用ShellExecuteAPI替代Shell函数（可选） #

如果需要更灵活的窗口控制，可以调用Windows系统APIShellExecute来实现：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long _
) As LongPtr

Sub Run_Python_With_ShellExecute()
    Dim PYTHON_FULL_PATH, PYTHON_SCRIPT_PATH As String   
    iRowNo = 2
    Do Until Sheet7.Cells(iRowNo, 1) = ""
        PYTHON_FULL_PATH = Sheet7.Cells(iRowNo, 1)
        PYTHON_SCRIPT_PATH = Sheet7.Cells(iRowNo, 2)
    
        iRowNo = iRowNo + 1
    Loop
    
    ' 通过cmd /k保持窗口打开
    ShellExecute 0, "open", "cmd.exe", "/k " & PYTHON_FULL_PATH & " """ & PYTHON_SCRIPT_PATH & """", vbNullString, vbNormalFocus
End Sub

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