For å finne ut statusen til en bestemt applikasjon som er tilgjengelig eller kjører i Microsoft Excel, ta en titt på denne artikkelen. Vi vil bruke VBA -kode for å sjekke for å returnere "True", hvis programmet er tilgjengelig eller kjører eller returnerer og "False" hvis ikke.
Spørsmål: Jeg vil gjerne ha en makro for å identifisere i bakgrunnen om den spesifikke applikasjonen kjører eller tilgjengelig/installert i systemet.
For å identifisere at Outlook -programmet kjører eller er tilgjengelig; vi må følge trinnene nedenfor for å starte VB -editor:
- Klikk på kategorien Utvikler
- Velg Visual Basic fra kodegruppen
- Klikk på Sett inn og deretter modul
- Dette vil opprette en ny modul
- Skriv inn følgende kode i modulen
Funksjon ApplicationIsRunning (ApplicationClassName As String) As Boolean 'returnerer True if the application is running' eksempel: 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 Sluttfunksjon
Funksjon ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'returnerer True if the application is available' eksempel: If Not ApplicationIsAvailable ("Outlook.Application") Then Exit Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Ikke AnyApp er ingenting angitt AnyApp = Ingenting på feil GoTo 0 Sluttfunksjon
- I en hvilken som helst celle må du skrive inn formelen som følger for å sjekke om Outlook -applikasjonen er installert på datamaskinen
- = ApplicationIsAvailable ("Outlook.Application")
- For å finne ut om Outlook -programmet kjører eller ikke; i en hvilken som helst celle, skriv inn formelen som = ApplicationIsRunning ("Outlook.Application")
Konklusjon: På denne måten kan vi kontrollere statusen til den spesifikke applikasjonen er installasjon og om den kjører eller ikke.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post