确定 shell 进程何时结束

在 Visual Basic for Applications (VBA) 过程中运行 Shell 函数时，它将异步启动可执行程序并将控制权返回到过程。 此 Shelled 程序将继续独立于您的过程运行，直到关闭它。

如果您的过程需要等待 Shelled 进程结束，则可以使用 Windows API 来轮询应用程序的状态，但此方法并不是很有效。 本主题介绍一种更有效的方法。

Windows API 具有集成功能，该功能可以使应用程序等待，直到 Shelled 进程完成。 要使用这些函数，需要有 Shelled 程序的句柄。 要完成此操作，应使用 CreateProcess 函数而不是 Shell 函数来开始 Shelled 程序。

创建 shelled 进程

若要创建可寻址进程，请使用 CreateProcess 函数来启动 Shelled 应用程序。 CreateProcess 函数会通过它传递的其中一个参数来为您的程序提供 Shelled 进程的进程句柄。

等待 shelled 进程结束

使用 CreateProcess 函数取得进程句柄后，可以将该句柄传递给 WaitForSingleObject 函数。 这样会使 VBA 过程暂停执行，直到 Shelled 程序结束。

构建使用 CreateProcess 函数运行 Windows 记事本应用程序的 VBA 过程需要执行下列步骤。 以下代码说明在继续执行之前，如何使用 Windows API CreateProcess 和 WaitForSingleObject 函数等待，直到 Shelled 进程结束。

CreateProcess 函数的语法比较复杂，因此在示例代码中，该函数被封装在一个名为 ExecCmd 的函数中。 ExecCmd 利用一个参数（即应用程序的命令行）来执行。

1. 创建一个标准模块，并将以下行粘贴到声明节：

   Option Explicit 
   
   Private Type STARTUPINFO 
   cb As Long 
   lpReserved As String 
   lpDesktop As String 
   lpTitle As String 
   dwX As Long 
   dwY As Long 
   dwXSize As Long 
   dwYSize As Long 
   dwXCountChars As Long 
   dwYCountChars As Long 
   dwFillAttribute As Long 
   dwFlags As Long 
   wShowWindow As Integer 
   cbReserved2 As Integer 
   lpReserved2 As Long 
   hStdInput As Long 
   hStdOutput As Long 
   hStdError As Long 
   End Type 
   
   Private Type PROCESS_INFORMATION 
   hProcess As Long 
   hThread As Long 
   dwProcessID As Long 
   dwThreadID As Long 
   End Type 
   
   Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ 
   hHandle As Long, ByVal dwMilliseconds As Long) As Long 
   
   Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ 
   lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ 
   lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ 
   ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ 
   ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ 
   lpStartupInfo As STARTUPINFO, lpProcessInformation As _ 
   PROCESS_INFORMATION) As Long 
   
   Private Declare Function CloseHandle Lib "kernel32" (ByVal _ 
   hObject As Long) As Long 
   
   Private Const NORMAL_PRIORITY_CLASS = &H20& 
   Private Const INFINITE = -1& 
   
   

2. 将以下代码粘贴到模块中：

   Public Sub ExecCmd(cmdline As String) 
   Dim proc As PROCESS_INFORMATION 
   Dim start As STARTUPINFO 
   Dim ReturnValue As Integer 
   
   ' Initialize the STARTUPINFO structure: 
   start.cb = Len(start) 
   
   ' Start the shelled application: 
   ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _ 
   NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) 
   
   ' Wait for the shelled application to finish: 
   Do 
   ReturnValue = WaitForSingleObject(proc.hProcess, 0) 
   DoEvents 
   Loop Until ReturnValue <> 258 
   
   ReturnValue = CloseHandle(proc.hProcess) 
   End Sub
   

3. 若要测试函数，请将以下代码粘贴到 “即时 ”窗口中，然后按 Enter。 记事本启动。 片刻后，关闭记事本。 记事本关闭时，将显示消息框。

   ExecCmd "NOTEPAD.EXE": MsgBox "Process Finished" 
   

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。