Para descobrir o status de qualquer aplicativo específico disponível ou em execução no Microsoft Excel, consulte este artigo. Usaremos o código VBA para verificar o retorno “True”, se o aplicativo está disponível ou em execução ou retornar e “False” se não.
Pergunta: Gostaria de ter uma macro para identificar em segundo plano se o aplicativo específico está em execução ou disponível / instalado no sistema.
Para identificar se o aplicativo Outlook está em execução ou disponível; precisamos seguir as etapas abaixo para lançar o editor VB:
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Clique em Inserir e depois em Módulo
- Isso criará um novo módulo
- Insira o seguinte código no Módulo
Função ApplicationIsRunning (ApplicationClassName As String) As Boolean 'retorna True se o aplicativo estiver em execução' exemplo: If Not ApplicationIsRunning ("Outlook.Application") Then Exit Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Not AnyApp Is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
Função ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'retorna True se o aplicativo estiver disponível' exemplo: If Not ApplicationIsAvailable ("Outlook.Application") Then Exit Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Not AnyApp Is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
- Em qualquer célula, você precisa inserir a fórmula como segue para verificar se o aplicativo Outlook está instalado no pc
- = ApplicationIsAvailable ("Outlook.Application")
- Para determinar se o aplicativo Outlook está em execução ou não; em qualquer célula, insira a fórmula como = ApplicationIsRunning ("Outlook.Application")
Conclusão: Dessa forma, podemos verificar o status de um aplicativo específico instalado e se ele está em execução ou não.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail