Определить, если приложение доступно с помощью VBA в Microsoft Excel
Чтобы узнать статус любого конкретного приложения, доступного или работающего в Microsoft Excel, прочтите эту статью. Мы будем использовать код VBA для проверки возврата «Истина», если приложение доступно или запущено, или возврата и «Ложь», если нет .
Вопрос: Я хотел бы иметь макрос для определения в фоновом режиме, работает ли конкретное приложение или доступно / установлено в системе.
Чтобы определить, что приложение Outlook запущено или доступно; нам нужно выполнить следующие шаги, чтобы запустить редактор VB:
Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic
-
Нажмите «Вставить», затем «Модуль»
Это создаст новый модуль. Введите следующий код в модуль
Function ApplicationIsRunning(ApplicationClassName As String) As Boolean
' returns True if the application is running
' example: If Not ApplicationIsRunning("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = GetObject(, ApplicationClassName)
ApplicationIsRunning = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean
' returns True if the application is available
' example: If Not ApplicationIsAvailable("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = CreateObject(ApplicationClassName)
ApplicationIsAvailable = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
Если вам понравились наши блоги, поделитесь ими с друзьями на Facebook. А также вы можете подписаться на нас в Twitter и Facebook .
Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить, дополнить или усовершенствовать нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]