For at finde ud af status for en bestemt applikation, der er tilgængelig eller kører i Microsoft Excel, skal du kigge på denne artikel. Vi vil bruge VBA -kode til at kontrollere for at returnere "True", hvis applikationen er tilgængelig eller kører eller returnerer og "Falsk" hvis ikke.
Spørgsmål: Jeg vil gerne have en makro til at identificere i baggrunden, om den specifikke applikation kører eller er tilgængelig/installeret i systemet.
For at identificere, at Outlook -programmet kører eller er tilgængeligt; vi skal følge nedenstående trin for at starte VB -editor:
- Klik på fanen Udvikler
- Vælg Visual Basic fra kodegruppen
- Klik på Indsæt derefter modul
- Dette vil oprette et nyt modul
- Indtast følgende kode i modulet
Funktion ApplicationIsRunning (ApplicationClassName As String) Som boolsk 'returnerer True, hvis applikationen kører' eksempel: Hvis ikke ApplicationIsRunning ("Outlook.Application") Afslut derefter Sub Dim AnyApp som objekt ved fejl Genoptag Næste sæt AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Ikke AnyApp er intet indstillet AnyApp = Intet ved fejl GoTo 0 Slut funktion
Funktion ApplicationIsAvailable (ApplicationClassName As String) Som boolsk 'returnerer True, hvis applikationen er tilgængelig' eksempel: Hvis ikke ApplicationIsAvailable ("Outlook.Application") Afslut derefter Sub Dim AnyApp som objekt ved fejl Genoptag Næste sæt AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Ikke AnyApp er intet indstillet AnyApp = Intet ved fejl GoTo 0 Slut funktion
- I en hvilken som helst celle skal du indtaste formlen som følger for at kontrollere, om Outlook -applikation er installeret på pc'en
- = ApplicationIsAvailable ("Outlook.Application")
- For at afgøre, om Outlook -applikation i øjeblikket kører eller ej; i en hvilken som helst celle indtast formlen som = ApplicationIsRunning ("Outlook.Application")
Konklusion: På denne måde kan vi kontrollere status for specifik applikation er installation, og om den kører eller ej.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet