vba - 如何捕获从 VBA 代码启动的 Windows shell 脚本错误？

Question

我正在使用 Shell 从 VBA 启动批处理脚本功能:

myRes = Shell("myScript.cmd")

有没有办法知道它是否运行成功或是否有执行错误？

Answer 1

我建议你试试WshShell对象而不是 native Shell 函数。

Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1 'or whatever suits you best
Dim errorCode As Integer

errorCode = wsh.Run("myScript.cmd", windowStyle, waitOnReturn)

If errorCode = 0 Then
    MsgBox "Execution successful. No error to report."
Else
    MsgBox "Program exited with error code " & errorCode & "."
End If    

虽然请注意:

If bWaitOnReturn is set to false (the default), the Run method returns immediately after starting the program, automatically returning 0 (not to be interpreted as an error code).

所以要检测程序是否执行成功，需要 waitOnReturn设置为 True 就像我上面的例子一样。否则无论如何它都会返回零。

This earlier answer of mine也可能有帮助。