Да бисте сазнали статус било које посебне апликације која је доступна или покренута у програму Мицрософт Екцел, погледајте овај чланак. Користићемо ВБА код за проверу да бисмо вратили „Тачно“, ако је апликација доступна или је покренута или се вратило и „Нетачно“ ако није.
Питање: Желео бих да имам макро за идентификацију у позадини да ли је одређена апликација покренута или доступна/инсталирана у систему.
Да бисте идентификовали да је Оутлоок апликација активна или доступна; морамо да следимо кораке у наставку да бисмо покренули ВБ едитор:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
- Притисните Уметни па Модул
- Ово ће створити нови модул
- Унесите следећи код у Модул
Функција АпплицатионИсРуннинг (АпплицатионЦлассНаме Ас Стринг) Као Боолеан 'враћа Труе ако је апликација покренута' пример: Ако није АпплицатионИсРуннинг ("Оутлоок.Апплицатион") Затим изађите из Суб Дим АниАпп Ас Објецт Он Еррор Ресуме Нект Сет АниАпп = ГетОбјецт (, АпплицатионЦлассНаме) АпплицатионИсРуннинг = Није АниАпп Ништа Није постављено АниАпп = Ништа о грешци Иди на 0 Заврши функцију
Функција АпплицатионИсАваилабле (АпплицатионЦлассНаме Ас Стринг) Као Боолеан 'враћа Труе ако је апликација доступна' пример: Ако није АпплицатионИсАваилабле ("Оутлоок.Апплицатион") Затим изађите из Суб Дим АниАпп Ас Објецт Он Еррор Ресуме Нект Сет АниАпп = ЦреатеОбјецт (АпплицатионЦлассНаме) АпплицатионИсАваилабле = Није АниАпп Ништа Није постављено АниАпп = Ништа о грешци Иди на 0 Заврши функцију
- У било коју ћелију морате унети следећу формулу да бисте проверили да ли је Оутлоок апликација инсталирана на рачунару
- = АпплицатионИсАваилабле ("Оутлоок.Апплицатион")
- Да бисте утврдили да ли је Оутлоок апликација тренутно покренута или не; у било којој ћелији унесите формулу као = АпплицатионИсРуннинг ("Оутлоок.Апплицатион")
Закључак: На овај начин можемо да проверимо да ли је статус одређене апликације инсталиран и да ли ради или не.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште
