Da biste saznali status bilo koje posebne aplikacije koja je dostupna ili pokrenuta u programu Microsoft Excel, pogledajte ovaj članak. Koristit ćemo VBA kôd za provjeru da bismo vratili "True", ako je aplikacija dostupna ili radi ili se vrati, a "False" ako nije.
Pitanje: Želio bih imati makro za identifikaciju u pozadini radi li određena aplikacija ili je dostupna/instalirana u sustavu.
Za prepoznavanje da je Outlook aplikacija aktivna ili dostupna; moramo pokrenuti donje korake za pokretanje VB uređivača:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Pritisnite Umetni pa Modul
- Ovo će stvoriti novi modul
- Unesite sljedeći kôd u Modul
Funkcija ApplicationIsRunning (ApplicationClassName As String) Kao Boolean 'vraća True ako se aplikacija izvodi' primjer: Ako nije ApplicationIsRunning ("Outlook.Application") Zatim izađite iz Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Nije AnyApp Ništa Nije postavljeno AnyApp = Ništa o pogrešci Idi na 0 Završi funkciju
Funkcija ApplicationIsAvailable (ApplicationClassName As String) Kao Boolean 'vraća True ako je aplikacija dostupna' primjer: Ako nije ApplicationIsAvailable ("Outlook.Application") Zatim izađite iz Sub Dim AnyApp kao objekt na grešci Nastavi Sljedeći Set AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Nije AnyApp Ništa Nije postavljeno AnyApp = Ništa o pogrešci Idi na 0 Završi funkciju
- U bilo koju ćeliju morate unijeti sljedeću formulu kako biste provjerili je li Outlook aplikacija instalirana na računalu
- = ApplicationIsAvailable ("Outlook.Application")
- Da biste utvrdili radi li Outlook aplikacija trenutno ili ne; u bilo koju ćeliju unesite formulu kao = ApplicationIsRunning ("Outlook.Application")
Zaključak: Na ovaj način možemo provjeriti status određene aplikacije je instalacija i radi li ili ne.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte