我如何将参数从vba传递给vbs（VBScript）？

我有以下的VBA：

Sub StartVbs(sVbsPathNmExt) Shell "Explorer.exe """ & sVbsPathNmExt & """", 1 End Sub 

和ParamPassTest.vbs中的以下VBScript：

 MsgBox("Hello x" ) WScript.quit 

当我从VBA这样调用它时，它显示一个消息“Hello x”：

 Sub do_StartVbs() Call StartVbs("Z:\somepath\ParamPassTest.vbs") End Sub 

我如何将V中的“x”作为parameter passing给VBS？

我在这里尝试了两种方法，他们要么错误，要么导致我的反病毒closures所有东西： 从vba的parameter passing给vbs

而不是放松我的反病毒规则，我怎样从vba传入参数给vbs？

Answer 1

你可以在VBA中试试这个：

 Shell "WScript ""C:\path\1.vbs"" 123" 

这在1.vbs：

 If WScript.Arguments.Count > 0 Then MsgBox WScript.Arguments(0)