在Excel中运行Python脚本：终端闪屏但代码未执行问题求助

问题背景 #

Python脚本在VS Code中可正常运行，能输出内容并生成目标Excel文件，但通过Excel VBA宏调用时，仅出现终端闪屏，代码未执行。操作时已关闭所有Excel文件及VS Code，宏位于独立文件中。

提供的代码 #

Python脚本 #

import pandas as pd 
import nameSplitter

Names = nameSplitter
to_drop = ['Question 2']

Names.df.drop(columns=to_drop, inplace=True)

sortedValues = Names.df.loc[Names.df['School Site'] == 3].sort_values('Question 1')

sortedValues.to_excel('sortedValues.xlsx', index=None)

VBA宏代码 #

Sub RunPythonScript()
'Procedure to run a Python Script in a VBA Procedure using the shell
 
    'Declaration
    Dim objShell As Object 'For the Shell
    Dim Pythonexe, PythonScript As String
     
    'Create the Shell Object
    Set objShell = VBA.CreateObject("Wscript.Shell")
     
    Pythonexe = """C:\Users\natha\AppData\Local\Programs\Python\Python310\python.exe""" 'path of the python.exe
    PythonScript = "C:\Users\natha\OneDrive\Desktop\form-filters-master\form-filters-master\project\QuantitativeData.py" 'path of your Python script
     
    'Run your Python script
    objShell.Run Pythonexe & " " & PythonScript 'run takes two arguments
End Sub

排查与解决要点 #

1. 工作目录不匹配导致文件找不到 #

VBA运行脚本时的默认工作目录是Excel的启动目录（通常是「我的文档」），而你的Python脚本使用相对路径处理文件（比如输出的sortedValues.xlsx，以及nameSplitter模块依赖的数据源），会导致脚本找不到文件而直接报错退出，出现闪屏。

解决方法：

• 方案一：修改Python脚本，将所有文件路径改为绝对路径（包括nameSplitter中读取的数据源路径、输出Excel的路径）。
• 方案二：在VBA中先切换到Python脚本所在目录，再执行脚本，添加代码到objShell.Run之前：

  objShell.CurrentDirectory = Left(PythonScript, InStrRev(PythonScript, "\"))
  

2. Python环境依赖不匹配 #

VS Code使用的Python环境和VBA调用的python.exe可能不是同一个，导致目标环境缺少pandas或nameSplitter模块，脚本执行报错。

解决方法：

• 确认VBA中指定的python.exe路径和VS Code使用的一致：在VS Code终端输入where python，复制对应路径替换VBA中的Pythonexe值。
• 验证环境依赖：临时修改VBA代码，运行命令查看该环境的已安装包：

  objShell.Run Pythonexe & " -m pip list", 1, True
  

  （参数1表示显示终端窗口，True表示等待执行完成），检查是否存在pandas。

3. 捕获脚本报错信息（关键排查步骤） #

终端闪屏是因为脚本执行出错后窗口立刻关闭，无法看到错误信息。可以修改VBA代码让窗口保持打开，或者捕获执行返回码：

解决方法：

• 方法一：让终端窗口保持打开，查看具体报错：

  objShell.Run "cmd /k " & Pythonexe & " " & PythonScript, 1, False
  

  其中cmd /k会在命令执行完后保留窗口，你可以直接看到脚本的错误提示（比如模块缺失、文件不存在等）。
• 方法二：捕获执行返回码，判断是否正常执行：

  Dim exitCode As Integer
  exitCode = objShell.Run(Pythonexe & " " & PythonScript, 1, True)
  MsgBox "脚本执行返回码：" & exitCode '返回码0表示正常执行，非0表示出错
  

4. OneDrive路径的权限与同步问题 #

你的Python脚本存储在OneDrive目录下，可能存在文件同步延迟或者系统权限限制，导致VBA无法正确读取脚本文件。

解决方法：
将Python脚本复制到本地非OneDrive目录（比如C:\temp\），修改VBA中的PythonScript路径后测试。

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