Määritä, onko sovellus saatavana VBA: n avulla Microsoft Excelissä

Sisällysluettelo

Jos haluat selvittää minkä tahansa Microsoft Excelissä saatavilla olevan tai käynnissä olevan sovelluksen tilan, tutustu tähän artikkeliin. Käytämme VBA -koodia tarkistaaksemme palauttaaksesi "tosi", jos sovellus on saatavilla tai käynnissä tai palaa ja "epätosi", jos ei.

Kysymys: Haluaisin saada makron tunnistamaan taustalla, onko tietty sovellus käynnissä tai saatavilla/asennettu järjestelmään.

Outlook -sovelluksen tunnistaminen on käynnissä tai käytettävissä; meidän on noudatettava alla olevia ohjeita VB -editorin käynnistämiseksi:

  • Napsauta Kehittäjä -välilehteä
  • Valitse koodiryhmästä Visual Basic

  • Napsauta Lisää ja sitten Moduuli

  • Tämä luo uuden moduulin
  • Syötä seuraava koodi moduuliin
 Toiminto ApplicationIsRunning (ApplicationClassName As String) as Boolean 'palauttaa arvon True, jos sovellus on käynnissä. = Not AnyApp is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function 
 Toiminto ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'palauttaa arvon True, jos sovellus on käytettävissä' esimerkki: Jos ei ApplicationIsAvailable ("Outlook.Application") Lopeta sitten Sub Dim AnyApp Object On Error Jatka Seuraava Aseta AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Not AnyApp is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function 

  • Jos haluat tarkistaa, onko Outlook -sovellus asennettu tietokoneeseen, syötä mihin tahansa soluun seuraava kaava
  • = ApplicationIsAvailable ("Outlook.Application")

  • Voit määrittää, onko Outlook -sovellus käynnissä vai ei. kirjoita mihin tahansa soluun kaava muodossa = ApplicationIsRunning ("Outlook.Application")

Johtopäätös: Näin voimme tarkistaa tietyn sovelluksen asennuksen tilan ja onko se käynnissä vai ei.

Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.

Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse

Tulet auttaa kehittämään sivuston jakaminen sivu ystävillesi

wave wave wave wave wave