Excel VBA调用sample.vbs触发运行时错误450的问题排查求助

直接错误原因 #

WScript.Shell的Exec方法仅接受1个参数（要执行的完整命令行字符串），但你的代码传入了3个参数（命令、空值、True），参数数量不匹配导致运行时错误450。

另外你的命令行末尾多了一个多余的.（param3 & "."），这可能会导致sample.vbs解析参数出错，建议先检查是否是笔误。

两种修正方案 #

方案1：改用Run方法（适合需要等待执行完成并获取返回码） #

Run方法支持等待参数，且直接返回脚本的退出码，语法更匹配你代码里的需求：

Dim oShell, returnCode
Set oShell = CreateObject("WScript.Shell")
' 去掉多余参数，第三个参数True表示等待脚本执行完成
returnCode = oShell.Run("sample.vbs -U " & param1 & " -P " & param2 & " -E " & param3, , True)
' 注意：Run返回数值，不需要用Set赋值

方案2：修正Exec方法的调用（适合需要捕获脚本输出） #

如果必须使用Exec（比如要读取脚本的标准输出/错误），只需保留命令行参数，去掉多余的参数，再通过对象属性获取结果：

Dim oShell, oExec, returnCode
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("sample.vbs -U " & param1 & " -P " & param2 & " -E " & param3)
' 循环等待脚本执行完成
Do While oExec.Status = 0
    DoEvents
Loop
' 获取脚本退出码
returnCode = oExec.ExitCode
' 如需读取脚本输出：oExec.StdOut.ReadAll()

内容的提问来源于stack exchange，提问作者Toshi