如何让VBA.Shell运行Python代码？解决调用时CMD弹窗不执行问题

安全阿岳

2026-7-26

问题分析与解决方法

现有VBA代码的核心问题

你的代码里最关键的错误是Python解释器路径和脚本路径拼接时缺少空格。CMD中执行Python脚本的正确格式是：

"python.exe路径" "脚本路径"

而你的代码直接将两个带引号的字符串拼接，变成了"pythonpath""scriptpath"，系统无法识别这是两个独立的参数，自然不会执行脚本。

修正后的VBA代码

Sub RunPython()
    Dim objShell As Object
    Dim PythonExePath As String
    Dim PythonScriptPath As String

    Set objShell = VBA.CreateObject("Wscript.Shell")

    ' 替换为实际的Python解释器路径和脚本路径，三重引号用于处理含空格的路径
    PythonExePath = """C:\Python39\python.exe"""
    PythonScriptPath = """C:\My Scripts\test.py"""

    ' 关键：两个路径之间添加空格
    objShell.Run PythonExePath & " " & PythonScriptPath
End Sub

额外优化建议

如果想让CMD窗口执行完后不立即关闭，可以在脚本路径后追加 & pause，执行完会等待按键再关闭：
```
objShell.Run PythonExePath & " " & PythonScriptPath & " & pause"
```
若需要隐藏CMD窗口后台运行，可给Run方法添加第二个参数0（表示隐藏窗口）：
```
objShell.Run PythonExePath & " " & PythonScriptPath, 0
```

其他可行运行方法

使用VBA原生Shell函数
语法更简洁，同样需注意路径空格：

Sub RunPythonWithShell()
    Dim cmdStr As String
    cmdStr = """C:\Python39\python.exe"" ""C:\My Scripts\test.py"""
    Shell cmdStr, vbNormalFocus ' vbNormalFocus表示正常显示CMD窗口
End Sub