从批处理文件返回错误消息

我正在从 VBA 对批处理文件进行脱壳，以启动 exec 文件，例如 Notepad.exe。如果未找到 exec 文件，我想向 VBA 返回指示或消息。到目前为止，我一直通过让bat 将消息写入文本文件，然后让VBA 检查该文件来完成此操作。这种方法似乎有点笨拙，但到目前为止我还没有遇到替代方法。

@echo off

set EM="C:\Msg.txt"
if exist %EM% del %EM%

set FL=%SystemRoot%\system32\xnotepad.exe

if not exist %FL% (
echo %FL% not found > %EM%
goto done
)

Start "" %FL%

:done

in VBA,

Dim oSHELL, batchname, usr, pass, exitcode
Set oSHELL = VBA.CreateObject("WScript.Shell")
usr="username"
pass="password"
batchname="batchFile.bat"

' Arguments ToRun, Style (0=hide), Waitforend
exitcode = oSHELL.Run(""""+batchname+""" """+usr+""" """+pass+"""", 0, True)

在你的批次中

exit somenumber

应该返回somenumber to exitcode

我使用的实际代码：

Sub q27097252()
Dim oSHELL, batchname, usr, pass, exitcode
Set oSHELL = VBA.CreateObject("WScript.Shell")
usr = ""
pass = ""
batchname = "c:\106x\q27097252.bat"

' Arguments ToRun, Style (0=hide), Waitforend
exitcode = oSHELL.Run("""" + batchname + """ """ + usr + """ """ + pass + """", 0, True)
MsgBox (exitcode)
End Sub

带批次c:\106x\q27097252.bat

@ECHO OFF
SETLOCAL
EXIT %time:~-1%

GOTO :EOF

在 VBA 代码编辑器/F5 中运行得非常好（预期结果：消息框随机显示 0..9）

使用 Windows XP 时的以下评论/解决方案：

会出现exit /b number选项只是设置errorlevel然而exit number实际上设置终止代码。
XP 下终止代码为 0，因为cmd.exe实际上正常终止 - 而 Windows 7（及更高版本）似乎分配当前errorlevel作为退出代码cmd.exe过程。
因此，使用exit number优先考虑与 XP 的兼容性 — 代码经过调整以适应。