Excel VBA调用Anaconda Python时numpy报DLL加载缺失错误如何解决

问题根本原因 #

该报错的核心原因是环境变量加载不全：Spyder运行脚本时会自动激活对应conda环境，将环境依赖的动态库路径（如MKL相关库所在的Library\bin目录）加入系统PATH；而VBA直接调用Anaconda的python.exe时没有提前激活conda环境，系统找不到numpy依赖的底层DLL文件，因此触发加载失败。

可行解决方案 #

方案1：通过conda激活命令执行脚本（最稳妥）

修改VBA脚本，先激活你测试正常的conda环境，再运行Python脚本，示例代码如下：

Sub RunPY()
    Dim objShell As Object
    Dim CondaPath As String
    Dim EnvName As String
    Dim PythonScript As String
    Dim RunCmd As String

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

    ' 替换为你的Anaconda安装路径下的activate.bat路径
    CondaPath = """C:\ProgramData\Anaconda3\Scripts\activate.bat"""
    ' 替换为你测试正常的conda环境名称，base就是默认环境
    EnvName = "你新建的环境名称"
    ' 你的脚本路径，保持原有引号包裹
    PythonScript = """N:\SCRIPT\script.py"""

    ' 拼接命令：先激活环境，再运行脚本
    RunCmd = "cmd /k " & CondaPath & " " & EnvName & " && python " & PythonScript
    
    objShell.Run RunCmd
    Set objShell = Nothing
End Sub

方案2：使用conda run直接执行（更简洁）

conda自带conda run命令可以直接在指定环境中执行命令，无需手动激活，修改VBA的命令拼接部分即可：

Sub RunPY()
    Dim objShell As Object
    Dim EnvName As String
    Dim PythonScript As String
    Dim RunCmd As String

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

    ' 替换为你测试正常的conda环境名称
    EnvName = "你新建的环境名称"
    PythonScript = """N:\SCRIPT\script.py"""

    RunCmd = "cmd /k conda run -n " & EnvName & " python " & PythonScript
    
    objShell.Run RunCmd
    Set objShell = Nothing
End Sub

注意：如果提示找不到conda命令，可以把conda.exe的完整路径（比如C:\ProgramData\Anaconda3\Scripts\conda.exe）替换命令中的conda即可。

方案3：临时添加依赖路径到系统PATH

如果不想修改VBA逻辑，也可以在Python脚本最开头优先添加Anaconda的依赖路径，在导入numpy之前加入以下代码：

import os
# 替换为你的Anaconda对应环境的Library\bin路径
os.add_dll_directory("C:\\ProgramData\\Anaconda3\\Library\\bin")
# 如果是自定义环境，路径示例：C:\\ProgramData\\Anaconda3\\envs\\你的环境名\\Library\\bin
import numpy as np
# 后续原有代码

注意事项 #

• 替换所有路径、环境名称时，要和你本地实际配置一致，优先匹配Spyder中使用的环境
• 所有包含空格的路径都需要用英文双引号包裹，避免路径识别错误
• 如果仍有mkl-service相关警告，可以在激活的conda环境中执行conda install mkl-service安装对应包即可

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