在VBA中运行Python脚本时Excel崩溃无报错的求助

根本原因：命令字符串的引号拼接错误 #

你的VBA代码里，构造Shell命令时的引号转义逻辑完全错误。路径中包含空格（比如OneDrive - MES），必须用双引号包裹才能被系统正确解析，但原代码的引号嵌套混乱，生成的命令无效，直接触发了未捕获的异常，导致Excel进程崩溃。

修正后的VBA代码 #

Sub RunPythonScriptWithXlwings()
    ' 指定Python解释器路径
    Dim xlwingsPath As String
    xlwingsPath = "C:\Users\rren\AppData\Local\Programs\Python\Python312\python.exe"

    ' 指定Python脚本路径
    Dim scriptPath As String
    scriptPath = "C:\Users\rren\OneDrive - MES\Desktop\Projects\52. MAR's report Python\mar_report.py"

    ' 构造正确格式的命令：用双引号分别包裹Python路径和脚本路径
    Dim command As String
    command = """" & xlwingsPath & """ """ & scriptPath & """"

    ' 执行命令，vbNormalFocus会弹出命令行窗口，也可改用vbHide隐藏
    Shell command, vbNormalFocus
End Sub

更稳定的替代方案：直接使用xlwings VBA集成 #

Shell调用属于跨进程交互，容易出现异常。xlwings官方提供了更安全的VBA集成方式，无需处理复杂的命令字符串，还能直接调用脚本中的函数：

1. 先在Excel中加载xlwings的VBA模块（可通过xlwings addin install命令安装）
2. 使用RunPython函数直接调用脚本：

Sub UpdateKPIWithXlwings()
    ' 调用Python脚本中的目标函数，替换成你实际的函数名
    RunPython "import mar_report; mar_report.refresh_dashboard()"
End Sub

这种方式由xlwings管理进程交互，能彻底避免Shell调用导致的崩溃问题。

额外优化：等待脚本执行完成 #

如果必须使用Shell，建议用WScript.Shell的Run方法等待脚本执行完毕，避免Excel在脚本未完成时出现异常：

Function ShellWait(cmd As String, Optional winStyle As VbAppWinStyle = vbNormalFocus) As Long
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    ' 第三个参数设为True表示等待命令执行完成
    ShellWait = wsh.Run(cmd, winStyle, True)
End Function

' 使用示例
Sub RunPythonAndWait()
    Dim xlwingsPath As String, scriptPath As String, command As String
    xlwingsPath = "C:\Users\rren\AppData\Local\Programs\Python\Python312\python.exe"
    scriptPath = "C:\Users\rren\OneDrive - MES\Desktop\Projects\52. MAR's report Python\mar_report.py"
    command = """" & xlwingsPath & """ """ & scriptPath & """"
    
    ' 隐藏命令行窗口并等待脚本完成
    Call ShellWait(command, vbHide)
End Sub

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