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
Dim myProcess As Process
Dim myProcesses As Process()
Dim myProcessesName As String
myProcessesName = "Excel"
If myProcessesName.ToString <> "" Then
myProcesses = System.Diagnostics.Process.GetProcesses()
For Each myProcess In myProcesses
If myProcess.ProcessName = myProcessesName Then 'Apsprp
myProcess.Kill()
End If
Next
End If