如何停止在VBA中使用ShellExecute命令创建的运行任务

Option Explicit

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

Private Const PROCESS_TERMINATE As Long = &H1

Sub StopShellExecuteTask()
    Dim processId As Long
    Dim hProcess As Long
    
    ' 使用Shell函数执行外部程序，并获取进程ID
    processId = Shell("C:\Path\to\YourProgram.exe", vbNormalFocus)
    
    ' 打开进程，获取进程句柄
    hProcess = OpenProcess(PROCESS_TERMINATE, 0, processId)
    
    ' 终止进程
    TerminateProcess hProcess, 0
    
    ' 关闭进程句柄
    CloseHandle hProcess
End Sub