Pentru a afla starea unei anumite aplicații disponibile sau care rulează în Microsoft Excel, aruncați o privire la acest articol. Vom folosi codul VBA pentru a verifica dacă returnăm „Adevărat”, dacă aplicația este disponibilă sau rulează sau returnăm și „False” dacă nu.
Întrebare: Aș dori să am o macro pentru a identifica în fundal dacă aplicația specifică rulează sau este disponibilă / instalată în sistem.
Pentru a identifica aplicația Outlook care rulează sau este disponibilă; trebuie să urmăm pașii de mai jos pentru a lansa editorul VB:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Faceți clic pe Insert apoi Module
- Aceasta va crea un nou modul
- Introduceți următorul cod în modul
Funcție ApplicationIsRunning (ApplicationClassName As String) Ca Boolean 'returnează True dacă aplicația rulează' exemplu: Dacă nu ApplicationIsRunning ("Outlook.Application") Apoi ieșiți Sub Dim AnyApp Ca obiect la eroare Reîncepeți Setarea următoare AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Not AnyApp is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
Funcție ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'returnează True dacă aplicația este disponibilă' exemplu: Dacă nu ApplicationIsAvailable ("Outlook.Application"), apoi Ieșiți Sub Dim AnyApp Ca obiect la eroare Reîncepeți Setarea următoare AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Not AnyApp is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
- În orice celulă trebuie să introduceți formula după cum urmează pentru a verifica dacă aplicația Outlook este instalată pe computer
- = ApplicationIsAvailable ("Outlook.Application")
- Pentru a determina dacă aplicația Outlook rulează în prezent sau nu; în orice celulă introduceți formula ca = ApplicationIsRunning ("Outlook.Application")
Concluzie: În acest fel, putem verifica starea unei anumite aplicații, este instalarea și dacă rulează sau nu.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail