如何通过Excel VBA按钮调用Anaconda3 Python脚本并解决IWshShell3报错

1 优先修正VBA代码基础错误 #

你当前的代码存在两个直接触发报错的低级问题：

• 变量名拼写不一致：声明的变量名为objShel，后续赋值和调用使用的是objShell，变量未定义会直接导致调用失败
• 路径拼接缺少空格：Python可执行文件路径和脚本路径之间必须添加空格，否则系统会将两个路径拼接为一个无效的可执行文件路径，无法识别

2 修正路径配置规则 #

路径配置需要满足以下要求，避免解析错误：

• python.exe必须填写完整绝对路径，不要使用相对路径或环境变量简写，比如正确格式为"C:\Python311\python.exe"
• 脚本路径如果包含空格、中文字符，必须用英文双引号包裹，确保系统可以正确识别路径
• 可在Run方法后添加两个可选参数：1表示显示Python运行窗口，True表示等待脚本运行完成后再返回VBA，方便查看Python端的报错信息

3 解决Excel文件占用问题 #

如果你的Python脚本需要对当前打开的工作簿做写入操作，处于打开状态的工作簿会被Excel进程锁定，确实会导致Python运行失败，进而触发Shell调用报错，可选择两种方案解决：

• 方案1：调整Python代码，通过win32com库直接读取当前运行的Excel实例中的工作簿数据，不需要读取磁盘上的文件，完全避免文件锁冲突
• 方案2：VBA调用Python脚本前先保存当前工作簿，若Python需要写入该文件，可先将工作簿另存为临时副本，把临时副本路径传给Python处理，处理完成后再把结果读回当前工作簿

4 调试验证方法 #

你可以在VBA中添加调试代码，把拼接好的运行命令输出到立即窗口，复制命令到CMD中手动运行，先确认Python脚本本身可以正常执行，再排查VBA侧的问题：

Debug.Print PythonExe & " " & PythonScript

修正后可运行的VBA示例代码 #

Sub RunPythonScript()
    Dim objShell As Object
    Dim PythonExe As String, PythonScript As String
    
    Set objShell = VBA.CreateObject("Wscript.Shell")
    
    ' 替换为你的实际Python可执行文件完整路径
    PythonExe = """C:\Python311\python.exe"""
    ' 替换为你的实际Python脚本完整路径
    PythonScript = """C:\projects\calc_script.py"""
    
    objShell.Run PythonExe & " " & PythonScript, 1, True
End Sub

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