Определете дали е налично приложение с помощта на VBA в Microsoft Excel

За да разберете състоянието на всяко конкретно приложение, налично или работещо в Microsoft Excel, разгледайте тази статия. Ще използваме VBA код за проверка за връщане на „True“, ако приложението е налично или работи или се връща и „False“, ако не.

Въпрос: Бих искал да имам макрос, който да идентифицира във фонов режим дали конкретното приложение работи или е налично/инсталирано в системата.

За да идентифицирате приложението Outlook е работещо или налично; трябва да следваме стъпките по -долу, за да стартираме VB редактор:

Кликнете върху раздела Разработчик
От групата кодове изберете Visual Basic

Кликнете върху Вмъкване, след това Модул

Това ще създаде нов модул
Въведете следния код в модула

 Функция ApplicationIsRunning (ApplicationClassName As String) Като Boolean "връща True, ако приложението работи" пример: Ако не ApplicationIsRunning ("Outlook.Application") След това излезте от Sub Dim Dim AnyApp като обект при грешка възобновяване Следваща настройка AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Не AnyApp Не е нищо Зададено AnyApp = Нищо при грешка GoTo 0 End Function

 Функция ApplicationIsAvailable (ApplicationClassName As String) Като Boolean "връща True, ако приложението е налично" пример: Ако не ApplicationIsAvailable ("Outlook.Application") След това излезте от Sub Dim Dim AnyApp като обект при възобновяване на грешка Следващ Set AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Not AnyApp Нищо не е зададено AnyApp = Нищо при грешка GoTo 0 End Function

Във всяка клетка трябва да въведете формула, както следва, за да проверите дали приложението Outlook е инсталирано на компютъра
= ApplicationIsAvailable ("Outlook.Application")

За да определите дали приложението Outlook в момента работи или не; във всяка клетка въведете формулата като = ApplicationIsRunning ("Outlook.Application")