如何通过VBA在Anaconda Prompt中运行Python代码？求助解决调用失败问题

你手动在Anaconda Prompt能运行Python脚本，但VBA直接调用python.exe不行，核心原因是Anaconda Prompt启动时自动加载了conda环境的初始化配置（比如激活base环境、设置环境变量），而VBA直接调用python.exe时，并没有加载这些配置，导致脚本依赖的conda环境包无法被找到，执行失败但窗口一闪而过看不到错误信息。

方法1：通过cmd加载conda环境后执行脚本 #

直接调用conda的激活脚本，先初始化环境再运行Python脚本，这样就能和Anaconda Prompt的环境一致：

Sub RunPythonInCondaEnv()
    Dim objShell As Object
    Dim condaActivatePath As String, pythonScriptPath As String, cmdCommand As String
    
    Set objShell = VBA.CreateObject("Wscript.Shell")
    
    ' 替换为你的Anaconda安装路径下的activate.bat路径
    condaActivatePath = "C:\Users\xxx\Anaconda3\Scripts\activate.bat"
    ' 替换为你的Python脚本绝对路径
    pythonScriptPath = """C:\Users\xxx\xxx.py"""
    
    ' 先激活base环境，如需自定义环境，把base换成你的环境名（比如conda activate my_env）
    cmdCommand = "cmd /k """ & condaActivatePath & " base && python " & pythonScriptPath & """"
    
    ' vbNormalFocus保持窗口打开，方便查看错误，调试完成后可改为vbHide
    objShell.Run cmdCommand, vbNormalFocus
End Sub

方法2：直接调用conda环境专属的python.exe #

每个conda环境都有独立的python.exe，如果你用的是自定义环境，不要调用base环境的python.exe，而是用对应环境的路径：
比如你的环境名为my_env，路径一般是：

C:\Users\xxx\Anaconda3\envs\my_env\python.exe

修改你的第二段VBA代码为：

Sub RunPythonScript()
    Dim pythonExePath As String, pythonScriptPath As String

    ' 替换为目标conda环境的python.exe绝对路径
    pythonExePath = """C:\Users\xxx\Anaconda3\envs\my_env\python.exe"""
    pythonScriptPath = """C:\Users\xxx\xxx.py"""

    ' 用cmd /k保持窗口打开，查看执行错误
    Shell "cmd /k " & pythonExePath & " " & pythonScriptPath, vbNormalFocus
End Sub

窗口一闪而过无法排查错误时，在执行命令前加上cmd /k，这样命令执行后窗口不会关闭，你能直接看到报错信息（比如ModuleNotFoundError），方便定位问题。

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