确定带外壳的进程何时在VBA中结束

Sub CheckProcessStatus()
    Dim objWMIService As Object
    Dim colProcesses As Object
    Dim objProcess As Object
    Dim strQuery As String
    Dim strProcessName As String
    Dim strShellCommand As String
    
    ' 设置要监视的进程名称和启动命令
    strProcessName = "notepad.exe"
    strShellCommand = "notepad.exe"
    
    ' 启动外壳进程
    Shell strShellCommand, vbNormalFocus
    
    ' 连接到WMI服务
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
    ' 构造查询语句
    strQuery = "SELECT * FROM Win32_Process WHERE Name='" & strProcessName & "'"
    
    ' 执行查询
    Set colProcesses = objWMIService.ExecQuery(strQuery)
    
    ' 循环检查进程状态
    For Each objProcess In colProcesses
        If objProcess.Status = "Terminated" Then
            ' 进程已结束
            MsgBox "进程已结束"
            ' 可以在此处执行后续操作
        Else
            ' 进程仍在运行
            MsgBox "进程仍在运行"
        End If
    Next objProcess
End Sub