通过VBA宏调用Python代码运行失败，无法生成CSV文件如何解决

核心问题定位 #

你当前最直接的错误是VBA拼接Python执行命令时没有在可执行文件路径和脚本路径之间加空格，拼接后的命令格式错误，系统无法正常识别执行逻辑，导致脚本启动后立刻报错退出，自然不会生成CSV文件。

分步修复操作 #

• 第一步：修正VBA的命令拼接逻辑，同时给脚本路径增加双引号适配带空格的路径场景，修正后的VBA代码如下：

Sub xls2py()
    Dim objShell As Object
    Dim PythonExe, PythonScript As String
    ChDir ActiveWorkbook.Path

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

    PythonExe = """C:\Users\Peter_K\anaconda3\python.exe"""
    ' 脚本路径也增加双引号包裹，避免路径含空格时报错
    PythonScript = """C:\Users\Peter_K\Desktop\Untitled3.py"""
    ' 两个参数之间加空格分隔
    objShell.Run PythonExe & " " & PythonScript
    Set objShell = Nothing

End Sub

• 第二步：先在系统CMD中手动执行命令验证Python脚本本身可以正常运行，提前排除依赖缺失问题：
  直接打开CMD，输入以下命令执行，确认桌面是否生成CSV文件：
  "C:\Users\Peter_K\anaconda3\python.exe" "C:\Users\Peter_K\Desktop\Untitled3.py"
  如果手动执行也失败，说明你当前anaconda的base环境没有安装pandas库，执行pip install pandas安装依赖即可。
• 第三步（可选调试技巧）：如果修复后仍然不生成文件，可以修改VBA调用逻辑，让CMD窗口停留并输出报错日志，方便定位问题：

Sub xls2py_debug()
    Dim objShell As Object
    Dim cmdStr As String
    Set objShell = VBA.CreateObject("Wscript.Shell")
    ' 用cmd /k执行命令，运行后不关闭窗口，可以直接看到Python报错信息
    cmdStr = "cmd /k """"C:\Users\Peter_K\anaconda3\python.exe"" ""C:\Users\Peter_K\Desktop\Untitled3.py"""""
    objShell.Run cmdStr
    Set objShell = Nothing
End Sub

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