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") ' в Immediate Window (Ctrl+G))
'   ?IsApplicationOpen("Word.Application")   ' в Immediate Window (Ctrl+G))
'--------------------------------------------------------------------
Dim objApp As Object
 
On Error GoTo IsApplicationOpen_Err
    Set objApp = GetObject(, sAppObjectName)
    'objApp.Visible = True
 
    IsApplicationOpen = True 'Yes-s-s-s! - Запущено!
 
IsApplicationOpen_Bye:
    On Error Resume Next
    Set objApp = Nothing
    Exit Function
 
IsApplicationOpen_Err:
    IsApplicationOpen = False 'Нет - не запущено ...
    Err.Clear
    Resume IsApplicationOpen_Bye
End Function


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