命令行执行 VBScript 文件以执行 VBA 宏无法生成 msgbox

Question

情况：

我正在尝试从 Windows 命令行运行 VBScript。该脚本打开 excel，导入 .bas 文件并在其中运行宏。然后该宏应显示一个 VBA MsgBox。

1. 如果我右键单击桌面上的.vbs 文件，然后选择Run VBScript，它就可以完美运行。

1. 如果我从命令行在正确的位置（即桌面）执行以下操作，则不会显示任何 MsgBox，尽管一切似乎都可以正常运行。

   Test.vbs
   

我尝试过的：

我查看了很多文章，其中一些我列为参考。特别是，我通过了这个answer。我已经尝试过：

CScript Test.vbs
WScript Test.vbs
CScript //logo Test.vbs
WScript //nologo Test.vbs

在阅读了那个答案之后，我确认 Windows 知道如何启动 .vbs 文件，这似乎是不言而喻的，因为我可以右键单击并运行。

所以：

1) 运行 assoc .vbs 给了我预期的结果：

:\Windows\System32>assoc .vbs
.vbs=VBSFile

2) 运行 ftype VBSFile 给出了预期：

VBSFile="%SystemRoot%\System32\WScript.exe" "%1" %*

3) 我尝试在命令行字符串中添加暂停和等待时间，但无济于事。

4) 我添加了各种标志，包括调试，例如CScript //X，没区别。

问题：

如何从命令行运行我的 VBScript 并让 msgbox 出现？

VBSCript (Test.vbs)

Option Explicit

Sub ExcelMacroExample() 
  Dim xlApp 
  Dim xlBook 
  Set xlApp = CreateObject("Excel.Application") 
  Set xlBook = xlApp.Workbooks.Open("C:\Users\User\Desktop\Test.xlsb", 0, True) 
  xlApp.VBE.ActiveVBProject.VBComponents.Import "C:\Users\User\Desktop\Test.bas"
  xlApp.DisplayAlerts = False
  xlApp.Run "MessageMe"
  xlApp.Wait Now + TimeSerial(0,0,2)
  'xlApp.Quit 
  xlApp.DisplayAlerts = True
 ' Set xlBook = Nothing 
 ' Set xlApp = Nothing 
End Sub 

Test.bas

Public Sub MessageMe
   Msgbox "Hello"
End Sub

注意事项：

所有文件都位于桌面文件夹中。

参考资料：

1. Running Scripts from the Command Line
2. VBS file doesn't run through cmd prompt
3. Running Scripts from the Command Prompt
4. How to run VBScript from command line without Cscript/Wscript

Answer 1

在您的主 VBS 中，您在 MessageMe 中的代码不会运行。您需要包含调用 MessageMe Sub 的代码。

此外，在 cscript 中，大多数人使用而不是 MsgBox，但显然（对我来说是新的）MsgBox 也会弹出......

WScript.Echo "From Main"

Call MessageMe

Public Sub MessageMe
    ' WScript.Echo "Hello"
    MsgBox "Hello"
End Sub