Norėdami sužinoti bet kurios konkrečios programos, esančios „Microsoft Excel“, būseną, peržiūrėkite šį straipsnį. Mes naudosime VBA kodą, kad patikrintume, ar grąžinama „tiesa“, jei programa yra prieinama, ar ji veikia, ar grįžta, ir „klaidinga“, jei ne.
Klausimas: Norėčiau turėti makrokomandą fone nustatyti, ar konkreti programa veikia, ar yra prieinama/įdiegta sistemoje.
Norėdami nustatyti, ar „Outlook“ programa veikia arba yra prieinama; Norėdami paleisti VB redaktorių, turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Iš kodų grupės pasirinkite „Visual Basic“
- Spustelėkite Įterpti, tada - Modulis
- Tai sukurs naują modulį
- Į modulį įveskite šį kodą
Funkcija „ApplicationIsRunning“ („ApplicationClassName As String“) kaip „Boolean“ grąžina „True“, jei programa veikia “pavyzdys: Jei ne„ ApplicationIsRunning “(„ Outlook.Application “), tada išeikite iš„ Sub Dim AnyApp “kaip objekto dėl klaidos Tęskite kitą nustatymą„ AnyApp = GetObject (, ApplicationClassName) = Ne AnyApp yra nieko Nustatyti AnyApp = Nieko nėra Klaida GoTo 0 pabaigos funkcija
Funkcija „ApplicationIsAvailable“ („ApplicationClassName As String“) kaip „Boolean“ grąžina „True“, jei programa yra prieinama “. Not AnyApp is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
- Bet kuriame langelyje turite įvesti tokią formulę, kad patikrintumėte, ar kompiuteryje įdiegta „Outlook“ programa
- = ApplicationIsAvailable ("Outlook.Application")
- Norėdami nustatyti, ar „Outlook“ programa šiuo metu veikia, ar ne; bet kuriame langelyje įveskite formulę kaip = ApplicationIsRunning ("Outlook.Application")
Išvada: Tokiu būdu galime patikrinti konkrečios programos įdiegimo būseną ir ar ji veikia, ar ne.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el