在Excel VBA中执行含双引号的Shell命令失败，求解决方法

问题根源 #

你当前构造的命令字符串给每个路径套了两层双引号，但CMD只能识别单层双引号包裹的带空格路径，这种错误格式直接导致命令无法解析执行。

修正后的VBA代码 #

调整字符串拼接逻辑，给每个路径加单层双引号，再配合cmd /S参数给整个命令套一层双引号，确保空格路径被正确识别：

pathLPXML = Range("Converter!pathLPXML").Value
pathInterfaceImage = Range("Converter!pathInterfaceImage").Value
pathGSM = Range("Converter!pathGSM").Value
pathXML = Range("Converter!pathXML").Value

' 拼接正确的命令段：每个带空格的路径用单个双引号包裹
Dim exeCmd As String
exeCmd = Chr(34) & pathLPXML & Chr(34) & " l2x -img " & _
         Chr(34) & pathInterfaceImage & Chr(34) & " " & _
         Chr(34) & pathGSM & Chr(34) & " " & _
         Chr(34) & pathXML & Chr(34)

' 用CMD执行时，给整个命令套一层双引号（配合/S参数保证解析正确）
Call Shell("cmd.exe /S /K " & Chr(34) & exeCmd & Chr(34), vbNormalFocus)

额外实用选项 #

• 若想后台执行（不显示CMD窗口），把vbNormalFocus替换为vbHide即可
• 若需要等待命令执行完成后再继续VBA代码，改用WScript.Shell的Run方法：

Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
' /C表示执行完自动关闭窗口，最后一个True表示等待命令结束
wsh.Run "cmd.exe /S /C " & Chr(34) & exeCmd & Chr(34), vbNormalFocus, True
Set wsh = Nothing

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