VBA excel：使用WScript运行bat文件

Question

我使用以下VBA代码来运行bat文件。这是运行记事本应用程序而不是.bat文件的示例。 运行时我收到错误“对象ISshShell3的方法运行失败” 请让我知道如何使用它从所需目录运行bat文件？ 我的目标是在控制台上运行命令并等待命令完成。

Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Long
errorCode = wsh.Run("D:\test.bat", windowStyle, waitOnReturn)
If errorCode = 0 Then
 MsgBox "Done! No error to report."
Else
  MsgBox "Program exited with error code " & errorCode & "."
End If

提前致谢