Shell * .vbs из VBA

Question

Привет, может кто-нибудь сказать мне, как выполнить мои .vbs из VBA, потому что следующая доза кода не работает.

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

Отладка VBA говорит, что синтаксис неправильный ????

спасибо

Answer 1

Попробуйте

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

Если вашей VBS требуется полная среда командной оболочки, используйте это:

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

, и если ваша программа должна дождаться завершения VBS, прочитайте этот пост:

Оболочка VBA и ожидание с кодом выхода

Answer 2

попробуйте это:

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