vba - 使用 VBA 控制 VBScript

Question

为了实现多线程，我正在使用 VBA 编写 VBScript 代码( VBStr )并在异步启动这些帮助程序脚本之前即时写入文件:

Dim VBFile As Object
Dim VBPath As String
VBPath = CurrentProject.Path & "\" & GUID() & ".vbs"
Set VBFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(VBPath)
VBFile.WriteLine VBStr
VBFile.Close

Dim Shell As Object
Set Shell = CreateObject("Wscript.Shell")

Shell.Run """" & VBPath & """"

但是，如何在 VBA 中控制这些脚本？我似乎无法得到它们的句柄或引用。假设我想在 60 秒后终止挂起/停滞的脚本 - 如何做到这一点？

Answer 1

使用 .Exec 而不是 .Run。已退回 WshScriptExec Object具有监视进程状态和终止进程的方法/属性。