使用VBA控制VBScript

时间:2013-07-02 07:30:36

标签: vba vbscript

为了实现多线程,我正在使用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秒后终止挂起/停止的脚本 - 如何做到这一点?

1 个答案:

答案 0 :(得分:5)

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