如何关闭其他程序

　　如果你知道窗口的标题，就可以使用FindWindow 和函数PostMessage 来关闭窗口
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Calculator")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0