vbscript - 从 Excel VBA 调用 .vbs 脚本

Question

是否可以在需要时从 VBA 代码调用 .vbs 脚本？如果可能的话，你能给我一个如何做到这一点的示例代码吗？

Answer 1

要运行文件:

Shell "wscript c:\null\a.vbs", vbNormalFocus

更换 wscript与 cscript如果 VBS 想要使用控制台。

或者您可以添加对 Microsoft Script Control 的引用并直接与 VBScript 运行时交互以执行 VBS 代码、程序等；

Dim scr As ScriptControl: Set scr = New ScriptControl
scr.Language = "VBScript"
scr.AddCode "sub T: msgbox ""All Hail Cthulhu"": end sub"
scr.Run "T"