请问如何判断EXCEL已经运行？？

Question

Public appExcel As Excel.Application
Sub Run_Excel()
    On Error Resume Next '忽略错误
    Set appExcel = GetObject(, "Excel.Application") '查找正在运行的 Excel 
    If Err.Number <> 0 Then '如果 Excel 没有运行则
       Set appExcel = CreateObject("Excel.Application") '运行它
       appExcel.Visible = True
    end if
    Err.Clear   ' 清除发生错误的 Err 对象
end sub