Determinar si una aplicación está disponible utilizando Microsoft Excel VBA en
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 en ejecución 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 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
Function ApplicationIsRunning(ApplicationClassName As String) As Boolean
' returns True if the application is running
' example: 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
Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean
' returns True if the application is available
' example: 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
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 a [email protected]