För att ta reda på statusen för en viss applikation som är tillgänglig eller körs i Microsoft Excel, ta en titt på den här artikeln. Vi kommer att använda VBA -kod för att kontrollera att "True" returneras, om programmet är tillgängligt eller körs eller returneras och "Falskt" om inte.
Fråga: Jag skulle vilja ha ett makro för att i bakgrunden identifiera om den specifika applikationen körs eller är tillgänglig/installerad i systemet.
För att identifiera att Outlook -programmet körs eller är tillgängligt; vi måste följa stegen nedan för att starta VB -editor:
- Klicka på fliken Utvecklare
- Välj Visual Basic i kodgruppen
- Klicka på Infoga och sedan Modul
- Detta skapar en ny modul
- Ange följande kod i modulen
Funktion ApplicationIsRunning (ApplicationClassName Som String) Som Boolean 'returnerar True om applikationen körs' exempel: If Not ApplicationIsRunning ("Outlook.Application") Stäng sedan Sub Dim AnyApp som objekt på fel -CV Nästa uppsättning AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Not AnyApp Is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
Funktion ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'returnerar True om applikationen är tillgänglig' exempel: If Not ApplicationIsAvailable ("Outlook.Application") Stäng sedan Sub Dim AnyApp som objekt på fel -CV Nästa uppsättning AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Not AnyApp Is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
- I vilken cell som helst måste du ange formeln enligt följande för att kontrollera om Outlook -applikationen är installerad på datorn
- = ApplicationIsAvailable ("Outlook.Application")
- För att avgöra om Outlook -programmet körs eller inte. i någon cell anger du formeln som = ApplicationIsRunning ("Outlook.Application")
Slutsats: På så sätt kan vi kontrollera statusen för specifika applikationer är installationen och om den körs eller inte.
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen
