Determinare se un’applicazione è disponibile utilizzando VBA in Microsoft Excel
Per scoprire lo stato di una particolare applicazione disponibile o in esecuzione in Microsoft Excel, dai un’occhiata a questo articolo. Useremo il codice VBA per controllare per restituire “True”, se l’applicazione è disponibile o in esecuzione o restituire e “False” in caso contrario .
Domanda: vorrei avere una macro per identificare in background se l’applicazione specifica è in esecuzione o disponibile / installata nel sistema.
Per identificare l’applicazione Outlook è in esecuzione o disponibile; dobbiamo seguire i passaggi seguenti per avviare l’editor VB:
Fare clic sulla scheda Sviluppatore. Dal gruppo Codice selezionare Visual Basic
-
Fare clic su Inserisci quindi su Modulo
Questo creerà un nuovo modulo. Inserisci il seguente codice nel modulo
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
Se i nostri blog ti sono piaciuti, condividilo con i tuoi amici su Facebook. E anche tu puoi seguirci su Twitter e Facebook.
_ Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare, integrare o innovare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]_