VBA调用Wscript.Shell的Run方法失败，用Label存路径报错如何解决？

核心故障原因 #

• 路径缺少双引号包裹：硬编码时你用三层双引号给可执行文件路径外层加了双引号，可适配路径中存在的空格；但从Label控件读取的路径默认不带外层双引号，路径含空格时会被系统识别为多段参数，导致调用失败
• 拼接缺少分隔空格：你的代码直接将exe路径和脚本路径拼接为字符串，二者之间没有空格分隔，系统会将两段路径识别为一个完整的可执行文件路径，无法找到对应程序

修复后代码 #

Sub RunTerminal()
    Dim objShell As Object
    ' 修正变量声明：VBA中逗号分隔声明需每个变量指定类型，否则前者为Variant
    Dim CompilerExe As String, ScriptName As String
    Dim StrCommand As String

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

    ' 读取Label内容并外层包裹双引号，Chr(34)对应双引号字符
    CompilerExe = Chr(34) & CStr(Slide1.Label2.Caption) & Chr(34)
    ScriptName = Chr(34) & CStr(Slide1.Label1.Caption) & Chr(34)

    ' 拼接时中间加空格分隔
    StrCommand = CompilerExe & " " & ScriptName
    objShell.Run StrCommand
End Sub

补充说明 #

如果你的路径确定不会包含空格，也可以只在exe和脚本路径之间加空格，无需额外包裹双引号，但添加双引号是兼容性更强的写法，可适配所有合法路径场景。

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