Public Sub KillProcess(ByVal ProcessName As String)'用来终止Word/Excel进程
Dim pProcess() As Process
pProcess = Process.GetProcesses()
Dim i As Integer
For i = 0 To pProcess.Length() - 1
If (pProcess(i).ProcessName = ProcessName) Then
pProcess(i).Kill() '关闭进程
Exit For
End If
Next