清楚系统中某个进程

Private Sub ProcessKill()
        Dim p As System.Diagnostics.Process
        p = New System.Diagnostics.Process
        For Each p In System.Diagnostics.Process.GetProcesses()
            If p.ProcessName.ToUpper() = "EXCEL" Then
                p.Kill()
            End If
        Next
End Sub