Raadpleeg dit artikel om de status te weten te komen van een bepaalde toepassing die beschikbaar is of wordt uitgevoerd in Microsoft Excel. We zullen VBA-code gebruiken om te controleren of de applicatie "True" retourneert, of de applicatie beschikbaar is of actief is of terugkeert en "False" als dat niet het geval is.
Vraag: Ik zou graag een macro willen hebben om op de achtergrond te identificeren of de specifieke applicatie actief is of beschikbaar/geïnstalleerd is in het systeem.
Om te identificeren dat de Outlook-toepassing actief of beschikbaar is; we moeten de onderstaande stappen volgen om de VB-editor te starten:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
- Klik op Invoegen en vervolgens op Module
- Hiermee wordt een nieuwe module gemaakt
- Voer de volgende code in de module in:
Functie ApplicationIsRunning(ApplicationClassName As String) As Boolean ' retourneert True als de toepassing actief is ' voorbeeld: If Not ApplicationIsRunning("Outlook.Application") Dan afsluiten Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = GetObject(, ApplicationClassName) ApplicationIsRunning = Niet AnyApp Is Niets Set AnyApp = Niets Bij Fout GoTo 0 Functie beëindigen
Functie ApplicationIsAvailable(ApplicationClassName As String) As Boolean ' retourneert True als de applicatie beschikbaar is ' voorbeeld: If Not ApplicationIsAvailable("Outlook.Application") Dan afsluiten Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = CreateObject(ApplicationClassName) ApplicationIsAvailable = Niet AnyApp Is Niets Ingesteld AnyApp = Niets Bij Fout GoTo 0 Functie beëindigen
- In elke cel moet u de formule als volgt invoeren om te controleren of Outlook-toepassing op de pc is geïnstalleerd
- =ApplicationIsAvailable("Outlook.Application")
- Om te bepalen of Outlook-toepassing momenteel actief is of niet; voer in een willekeurige cel de formule in als =ApplicationIsRunning("Outlook.Application")
Conclusie: Op deze manier kunnen we controleren of een specifieke applicatie is geïnstalleerd en of deze actief is of niet.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite