使用VBA快速关闭应用程序进程

使用VBA进行开发时，如果需要关闭其他Office应用程序，那么通常可以使用GetObject的方式获取该应用程序的引用，然后再关闭，有时需要重复多次以关闭多进程。如果希望关闭的应用程序并非Office组件，那么GetObject方式有时就不太方便了，其实借助WMI可以更加快捷的完成这个任务。

示例代码如下：

Sub CloseAppProcesses()
    Dim objApp As Object
    Dim sAppName As String
    Dim sSQL As String
    sAppName = "WINWORD.EXE"
    sSQL = Replace("Select * from Win32_Process Where Name='@'", "@", sAppName)
    For Each objApp In GetObject("winmgmts:").ExecQuery(sSQL)
        objApp.Terminate
    Next objApp
End Sub

【代码解析】
第5行代码指定应用程序进程名称，各位同学需要主要，这个名称有时和想象中的不同，例如Excel的进程名称为EXCEL.EXE，而Wor的进程名称为WINWORD.EXE，为了确保正确无误，最佳方案是在Windows的任务管理器中查询进程名称。

第6行代码设置查询的SQL,替换其中的应用程序进程名称。
第7行代码创建WMI对象执行SQL,并循环遍历获取到的进程。
第8行代码调用Terminate方法关闭进程。