excel - 尝试从 VBA 运行 .bat 脚本失败且没有错误代码

Question

概括:
我正在尝试使用 Excel VBA 在 Windows 机器上运行 .bat 脚本。我在网上找到了描述如何执行此操作的引用资料，并且我已按照其中包含的说明进行操作。但是，我的 .bat 文件没有运行。

细节:
我的 .bat 文件(“test.bat”)包含以下代码:

echo off
echo This is a test...
pause
exit

它位于我的桌面上，路径如下:“C:\Users\User1\Desktop”。当我双击此 .bat 文件或从命令行调用它时，它会表现出所需的行为。也就是说，它会暂停并等待我按任意键。

我正在尝试使用以下代码从 Excel VBA 运行相同的 .bat 文件:

Sub testBatchScript()

    'Print a message to the immediate window to confirm subroutine execution
    Debug.Print "The subroutine is running."

    'Initialize a windows shell object
    Dim wsh As WshShell
    Set wsh = New WshShell

    'Construct the full path to the .bat file
    Dim fullPath As String
    fullPath = Chr(34) + "C:\Users\User1\Desktop\test.bat" + Chr(34)

    'Run the .bat file
    Dim eCode As Long
    eCode = wsh.Run(fullPath, waitonreturn:=True, windowstyle:=1)

    If eCode <> 0 Then
        MsgBox ("An error occurred.")
    End If

End Sub

当我运行这个子程序时，什么也没有发生。没有弹出CMD窗口，也没有弹出提示错误的消息框。但是，由于即时窗口中显示的消息，我确实知道该子例程正在运行。

我很困惑为什么这不起作用。更令人困惑的是，就在几周前，我还能够成功地从 VBA 调用 .bat 脚本。

有人有什么解释或建议吗？

更新1:
根据@Dhamo 在下面评论中的建议，我更新了 VBA 代码并进行了错误处理:

Option Explicit

Sub testBatchScript()

    On Error GoTo EH:

    'Print a message to the immediate window to confirm subroutine execution
    Debug.Print "The subroutine is running."

    'Initialize a windows shell object
    Dim wsh As WshShell
    Set wsh = New WshShell

    'Construct the full path to the .bat file
    Dim fullPath As String
    fullPath = Chr(34) + "C:\Users\User1\Desktop\test.bat" + Chr(34)

    'Run the .bat file
    Dim eCode As Long
    eCode = wsh.Run(fullPath, waitonreturn:=True, windowstyle:=1)

    If eCode <> 0 Then
        MsgBox ("An error occurred.")
    End If

    Exit Sub

EH:
    MsgBox ("The error description is: " & Err.Description)

End Sub

当我运行此代码时，仍然没有任何 react 。

更新2:
今天早上我再次运行测试代码，重新启动计算机后，这次我收到一条弹出消息:“错误描述是:权限被拒绝”。然后我再次运行代码以查看是否可以复制此错误消息，并且没有弹出窗口!此外，无论我运行多少次代码，我都无法让错误消息重新出现。所以重新启动似乎做了一些事情......

“权限被拒绝”消息表明这是一个安全问题。任何人有解决它的任何想法？

Answer 1

不是答案，但评论太长了:

如果将以下内容放入文件中，将其另存为 test.vbs(不是文本文档:如果不小心，记事本会创建 test.vbs.txt):

Dim wsh, fullPath, ecode
Set wsh = WScript.CreateObject("WScript.Shell")
fullPath = "C:\programs\test.bat"
ecode = wsh.Run(fullPath, 1, True)
msgbox(ecode)

(根据您的情况调整完整路径)。将其保存到例如桌面，然后单击图标。怎么了？