VBA, MS Access MS Access в примерах

Проверка запущенно-ли указанное в аргументе приложение?

Public Function IsApplicationOpen(sAppObjectName$) As Boolean
'es - 26.10.2018
'Проверка запущенно-ли указанное в аргументе приложение?
'Если запущено - функция вернёт True (-1)
'--------------------------------------------------------------------
'Примеры эксплуатации:
'   ?IsApplicationOpen("Excel.Application")  ' в Immediate Window (Ctrl+G))
'   ?IsApplicationOpen("Access.Application")
'   ?IsApplicationOpen("Word.Application")  
'   ?IsApplicationOpen("Outlook.Application")
'--------------------------------------------------------------------
Dim objApp As Object
 
On Error GoTo IsApplicationOpen_Err
    Set objApp = GetObject(, sAppObjectName)
    'objApp.Visible = True
 
    IsApplicationOpen = True 'Yes-s-s-s! - Запущено!
 
IsApplicationOpen_Bye:
    Set objApp = Nothing
    Exit Function
 
IsApplicationOpen_Err:
    Err.Clear
    Resume IsApplicationOpen_Bye
End Function


Назад ToTop
L.E. 09.03.2024
Рейтинг@Mail.ru