Shell * .vbs来自VBA

Question

大家可以告诉我如何在VBA中执行我的.vbs，导致以下代码不起作用。

RetBat4 = Shell("c:\VTS\QUEEN ANNES REVENGE\SYSTEM\VBS\UNDO_2.vbs", 1)

VBA调试说sytax错了????

感谢

Answer 1

尝试

Shell("cscript ""c:\VTS\QUEEN ANNES REVENGE\SYSTEM\VBS\UNDO_2.vbs""",1)

如果您的VBS需要完整的命令shell环境，请使用：

Shell("cmd /c cscript ""c:\VTS\QUEEN ANNES REVENGE\SYSTEM\VBS\UNDO_2.vbs""",1)

如果你的节目要等到VBS结束，请阅读这篇文章：

VBA Shell and Wait with Exit Code

Answer 2

试试这个：

Set ws=CreateObject("Wscript.shell")
set ws.exec("ping " & ip & " -n 20")
set ws=nothing