含空格路径的Excel VBA调用Python脚本报错求助

问题拆解 #

1. ChDir执行失败：带空格的路径直接传入ChDir时，VBA的路径解析会出现异常
2. CMD路径报错：手动写死的带空格路径用三重引号包裹后，拼接出的CMD命令格式不符合解析要求

修复后的完整代码 #

Sub runpython3()
    Dim Ret_Val As Double
    Dim args As String
    Dim PythonExe As String
    Dim folder_path As String
    
    folder_path = Application.ThisWorkbook.Path
    ' 直接保存工作簿，无需切换目录，用绝对路径替代当前目录依赖
    ThisWorkbook.Save

    ' VBA中用两个双引号表示一个实际引号，包裹带空格的路径
    PythonExe = """" & folder_path & "\..\venv\Scripts\python.exe"""
    args = """" & folder_path & "\job_sim_2.py"""

    ' 构造CMD执行命令
    Dim cmdCommand As String
    cmdCommand = "cmd /k " & PythonExe & " " & args
    
    Ret_Val = Shell(cmdCommand, vbNormalFocus)
    If Ret_Val = 0 Then
       MsgBox "无法运行Python脚本！", vbOKOnly
    End If
End Sub

核心修复要点 #

• 移除ChDir依赖：直接使用工作簿路径拼接出Python解释器和脚本的绝对路径，从根源避免路径切换的解析问题
• 正确处理带空格路径：在VBA中用""转义出实际的双引号，确保CMD能识别带空格的完整路径
• 显式声明变量类型：避免隐式类型转换可能引发的未知问题

特殊场景补充 #

如果Python脚本必须依赖当前工作目录读取文件，可修改ChDir的调用方式，用引号包裹路径：

ChDir """" & folder_path & """"

但更推荐在Python脚本中使用绝对路径读取资源，彻底摆脱对执行目录的依赖。

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