获取 "Invalid Procedure Call Argument" 当我运行从子程序调用 Bat 文件时

Question

找到下面的代码：

Sub Button1_Click()
   argh = Shell("C:\Users\YYYY\Desktop\test1.bat", vbNormalNoFocus)
End Sub

当我运行从子程序调用 Bat 文件时，我总是遇到以下错误。附上屏幕截图。

"Run time Error"
"Invalid Procedure call or argument"

Answer 1

我们不能运行来自 Excel 宏的 .bat 文件，它总是会要求管理员权限。

最好创建一个 .vbs 文件并从 .vbs 文件调用 .bat 文件。

.vbs 文件：将文件另存为 runbatch.vbs

Set objShell = CreateObject("WScript.Shell")
objShell.run "C:\Users\YYYYYY\Desktop\test1.bat"
WScript.Quit

宏 Code:In Excel VB 编辑器编写以下代码

Sub Button1_Click()
    shell "wscript C:\Users\YYYYYY\Desktop\runbatch.vbs", 
    vbNormalFocus
End Sub

Getting "Invalid Procedure Call Argument" When i run call a Bat file from Subroutine