Mis tahes konkreetse Microsoft Excelis saadaoleva või töötava rakenduse oleku väljaselgitamiseks vaadake seda artiklit. Kasutame VBA koodi, et kontrollida, kas tagastatakse „tõene”, kui rakendus on saadaval või töötab või tagastab, ja „vale”, kui mitte.
Küsimus: Soovin, et mul oleks taustal makro, mis tuvastaks, kas konkreetne rakendus töötab või on süsteemis saadaval/installitud.
Outlooki rakenduse töötamise või kättesaadavuse tuvastamiseks; VB redaktori käivitamiseks peame järgima järgmisi samme:
- Klõpsake vahekaarti Arendaja
- Valige koodigrupist Visual Basic
- Klõpsake nuppu Sisesta ja seejärel Moodul
- See loob uue mooduli
- Sisestage moodulisse järgmine kood
Funktsioon ApplicationIsRunning (ApplicationClassName as String) kui Boolean 'tagastab tõese, kui rakendus töötab' näide: kui mitte ApplicationIsRunning ("Outlook.Application"), siis väljuge Sub Dim AnyApp objektina vea korral Jätkake järgmisel Määrake AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Not AnyApp is Nothing Set AnyApp = Nothing on Error GoTo 0 End Function
Funktsioon ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'tagastab tõese, kui rakendus on saadaval' näide: Kui mitte ApplicationIsAvailable ("Outlook.Application"), siis väljuge Sub Dim AnyApp objektina vea korral Jätkake järgmiselt Määra AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Not AnyApp is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
- Igas lahtris peate sisestama järgmise valemi, et kontrollida, kas Outlooki rakendus on arvutisse installitud
- = ApplicationIsAvailable ("Outlook.Application")
- Et teha kindlaks, kas Outlooki rakendus töötab või mitte; mis tahes lahtrisse sisestage valem kui = ApplicationIsRunning ("Outlook.Application")
Järeldus: Nii saame kontrollida, kas konkreetse rakenduse olek on installitud ja kas see töötab või mitte.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile
