Determine si una aplicación está disponible usando VBA en Microsoft Excel

Anonim

Para conocer el estado de cualquier aplicación en particular disponible o en ejecución en Microsoft Excel, consulte este artículo. Usaremos el código VBA para verificar que devuelva "Verdadero", si la aplicación está disponible o ejecutándose o regresa y "Falso" si no.

Pregunta: Me gustaría tener una macro para identificar en segundo plano si la aplicación específica se está ejecutando o está disponible / instalada en el sistema.

Para identificar que la aplicación Outlook se está ejecutando o está disponible; debemos seguir los pasos a continuación para iniciar el editor de VB:

  • Haga clic en la pestaña Desarrollador
  • Desde el grupo de código, seleccione Visual Basic

  • Haga clic en Insertar y luego en Módulo

  • Esto creará un nuevo módulo
  • Ingrese el siguiente código en el Módulo
 Función ApplicationIsRunning (ApplicationClassName como cadena) As Boolean 'devuelve True si la aplicación se está ejecutando' ejemplo: Si no es ApplicationIsRunning ("Outlook.Application"), salga de Sub Dim AnyApp como objeto en caso de error Reanudar Siguiente Establecer AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = No AnyApp no ​​tiene nada configurado AnyApp = Nada en caso de error Ir a 0 Finalizar función 
 Función ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'devuelve True si la aplicación está disponible' ejemplo: Si no ApplicationIsAvailable ("Outlook.Application") Luego salga de Sub Dim AnyApp como objeto en caso de error Reanudar Siguiente Establecer AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = No AnyApp no ​​tiene nada configurado AnyApp = Nada en caso de error Ir a 0 Finalizar función 

  • En cualquier celda, debe ingresar la fórmula de la siguiente manera para verificar si la aplicación Outlook está instalada en la PC
  • = ApplicationIsAvailable ("Outlook.Application")

  • Para determinar si la aplicación Outlook se está ejecutando actualmente o no; en cualquier celda ingrese la fórmula como = ApplicationIsRunning ("Outlook.Application")

Conclusión: De esta manera podemos verificar el estado de la aplicación específica de instalación y si se está ejecutando o no.

Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico