本文共 733 字，大约阅读时间需要 2 分钟。

如何判断Excel进程是否存在？如果存在则关闭Excel进程。

SystemUtil.CloseProcessByName "excel.exe"

On error resume next

  Dim Obj

  Set Obj = GetObject(,"Excel.Application")

  If Not Obj Is Nothing Then      

  Obj.Quit     

  Set Obj = Nothing

End If

或者：

' To kill excel application

CreateObject("WScript.Shell").Run "taskkill /f /im excel.exe"

'To check if excel is running use this function

msgbox "Excel is Running:" & FindProcess("EXCEL.EXE")

Function FindProcess(ByVal ProcessName)

  FindProcess= False   

  Set Shell = CreateObject("WScript.Shell")       

  Set ShellResult = Shell.Exec("TaskList")         

  While Not ShellResult.StdOut.AtEndOfStream         

    If Instr(UCASE(ShellResult.StdOut.ReadLine),UCASE(ProcessName)) Then

      FindProcess = True                

      Exit Function              

    End If         

  Wend  

End Function

本文来自CSDN博客，转载请标明出处：

转载地址：https://blog.csdn.net/jims55555/article/details/5840291 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！