急！如何关闭系统中所有正在运行的Excel进程

Question

如题。肯定是用API来关闭进程，但我不知道怎么用。用findwindow函数其实很难关闭所有的Excel进程。

Answer 1

Public   Sub   subKillProcess(ByVal   strProcess   As   String)   
    
          Dim   strComputer   As   String   
          Dim   objWMIService   As   Object   
          Dim   colProcessList   
          Dim   objProcess   As   Object   
            
          On   Error   Resume   Next   
            
          strComputer   =   "."   
          Set   objWMIService   =   GetObject("winmgmts:"   _   
                  &   "{impersonationLevel=impersonate}!\\"   &   strComputer   &   "\root\cimv2")   
          Set   colProcessList   =   objWMIService.ExecQuery   _   
                  ("Select   *   from   Win32_Process   Where   Name   =   '"   &   strProcess   &   "'")   
          For   Each   objProcess   In   colProcessList   
                  objProcess.Terminate   
          Next   
            
  End   Sub   
    
  传过来‘Excel.exe’   
  杀死进程中的Excel

Answer 2

yangao真厉害!程序简洁有效！可见是个高手中的高手！
十分感谢！