如何通过VBA运行Python脚本？CMD窗口闪闭问题求助

1. 让CMD窗口保持打开，查看错误信息 #

CMD闪闭的核心原因是脚本执行出错但窗口立即关闭，无法查看报错内容。修改VBA的执行语句，用cmd /k强制窗口保持打开：

objShell.Run "cmd /k " & PythonExePath & " " & PythonScriptPath

注意：两个路径之间必须加空格，否则命令会把脚本路径当成Python解释器的无效参数，直接导致执行失败

2. 修正VBA路径拼接错误 #

原代码中PythonExePath & PythonScriptPath会把两个路径直接拼接成无效命令（比如"C:\xxx\python.exe""C:\xxx\ID.py"），必须在路径间添加空格：

objShell.Run PythonExePath & " " & PythonScriptPath

3. 更换Python解释器路径（规避微软商店版本问题） #

C:\Users\IDDavidRosset\AppData\Local\Microsoft\WindowsApps\python.exe是微软商店版本的Python快捷方式，容易出现权限或环境变量异常。打开CMD输入where python，找到真实的Python安装路径（比如C:\Python310\python.exe或虚拟环境路径），替换到VBA中：

PythonExePath = """C:\Python310\python.exe"""

4. 排查Python脚本的依赖与路径问题 #

• 安装缺失依赖：打开CMD，执行pip install matplotlib pyautogui pandas selenium webdriver-manager openpyxl（openpyxl是读取xlsm格式文件的必需依赖）
• 验证Excel文件路径：在Python脚本开头添加路径校验代码，确认文件存在：

import os
file_path = r'C:\Users\IDDavidRosset\PycharmProjects\pythonProject1\test2\Teste.xlsm'
print(os.path.exists(file_path))  # 打印True表示路径有效

• 分步测试脚本：先注释掉Selenium相关代码，验证pandas读取Excel的功能是否正常，再逐步恢复其他逻辑。

最终修改后的VBA示例 #

Sub RunPythonScript()
    Dim objShell As Object
    Dim PythonExePath, PythonScriptPath As String
    ActiveWorkbook.Save
    ChDir ActiveWorkbook.Path

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

    ' 替换为你真实的Python安装路径
    PythonExePath = """C:\Python310\python.exe"""
    PythonScriptPath = """C:\Users\IDDavidRosset\PycharmProjects\pythonProject1\ID.py"""
    
    ' 保持CMD窗口打开，确保路径间有空格
    objShell.Run "cmd /k " & PythonExePath & " " & PythonScriptPath

    Set objShell = Nothing
End Sub

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