访问VBA退出被调用的子进程并跳过子进程的其余部分

Option Explicit

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Sub Main()
    Dim pid As Long
    Dim hProcess As Long
    
    ' 启动子进程
    pid = Shell("C:\Path\To\Your\Program.exe", vbNormalFocus)
    
    ' 等待子进程启动
    Application.Wait Now + TimeValue("0:00:02")
    
    ' 获取子进程句柄
    hProcess = OpenProcess(&H1F0FFF, False, pid)
    
    ' 判断子进程是否成功启动
    If hProcess <> 0 Then
        ' 终止子进程
        TerminateProcess hProcess, 0
        
        ' 关闭子进程句柄
        CloseHandle hProcess
    Else
        ' 子进程启动失败
        MsgBox "Failed to start the child process."
    End If
    
    ' 继续执行主进程的其余部分
    ' ...
End Sub