VBA 执行 Shell 命令报错，绝大多数情况是文件路径包含空格未加引号，或者宏安全设置阻止了外部程序调用。

代码速用版

下面是一段包含错误处理的标准写法，直接替换你原有的 Shell 调用代码：

Sub RunShellCommand()
    On Error GoTo ErrHandler
    Dim strPath As String
    Dim taskID As Double
    
    ' 路径含空格时必须加双引号，Chr(34) 代表双引号字符
    strPath = Chr(34) & "C:\\Program Files\\App\\exe.exe" & Chr(34)
    
    taskID = Shell(strPath, vbNormalFocus)
    MsgBox "任务启动成功，ID: " & taskID
    Exit Sub
    
    ErrHandler:
    MsgBox "错误号：" & Err.Number & vbCrLf & "描述：" & Err.Description
End Sub

带参数的命令写法：如果需要传递参数（如调用 cmd.exe），需确保整个命令字符串被正确包裹。

Sub RunShellWithArgs()
    Dim strCmd As String
    ' 示例：打开命令行并执行 dir 命令，路径含空格需特别注意
    strCmd = Chr(34) & "C:\\Windows\\System32\\cmd.exe" & Chr(34) & " /k dir"
    Shell strCmd, vbNormalFocus
End Sub

为什么会这样

VBA 的 Shell 函数直接调用操作系统命令，它不会自动处理路径中的空格。如果路径是 C:\Program Files\...，系统会把 C:\Program 当作程序名，Files\... 当作参数，从而找不到文件。此外，Office 默认的安全策略会限制宏调用外部可执行文件，以防病毒传播。

分步处理

1. 规范路径写法
如果路径中有空格，必须用双引号将整个路径包起来。在 VBA 字符串中，双引号需要转义，推荐使用 Chr(34) 或者连续两个双引号 "" 来表示。

2. 检查宏安全设置
打开 Excel 或 Word，依次点击“文件”>“选项”>“信任中心”>“信任中心设置”>“宏设置”。如果选的是“禁用所有宏”，Shell 命令会被拦截。建议改为“禁用所有宏，并发出通知”，运行时会弹窗询问。警告：仅对确认安全的宏文件启用内容，不要随意启用未知来源的宏。

3. 确认权限问题
如果目标程序需要管理员权限，而 Office 是以普通用户身份运行，可能会报权限错误。可尝试右键点击 Office 图标，选择“以管理员身份运行”再测试。注意：以管理员身份运行 Office 会提升权限风险，操作完成后建议恢复正常模式。

怎么验证是否生效

运行代码后，观察是否弹出错误提示框。如果没有报错且目标程序启动，说明成功。如果仍报错，记录错误号：错误 53 代表文件未找到，错误 5 代表参数无效，错误 70 代表权限被拒绝。

常见坑

1. 异步执行：Shell 是异步的，代码会继续往下跑，不会等程序关闭。如果需要等待，需调用 Windows API 如 WaitForSingleObject。
2. 64 位 Office：如果使用 Declare 语句调用 API 配合 Shell，需添加 PtrSafe 关键字，但原生 Shell 函数通常不受影响。
3. 相对路径：尽量避免相对路径，使用完整绝对路径减少出错。

参考来源

Microsoft Learn: Shell 函数
URL: https://learn.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/shell-function