Excel 进程关闭的问题 （急....在线等待）

Public Sub killExcelProcess()
        '结束 Excel 进程
        Dim xlProcess As New System.Diagnostics.Process        For Each xlProcess In System.Diagnostics.Process.GetProcesses
            If xlProcess.ProcessName.ToUpper.Equals("EXCEL") Then
                '结束 excel 进程 
                xlProcess.Kill()
            End If
        Next
    End Sub