TopPicLogo TopPicText

MS Excel - Проверка - запущен или нет

Public Function IsExcelOpen() As Boolean
'es - 10.07.2012
'Если MS Excel запущен - вернёт True (-1)
'--------------------------------------------------------------------
Dim objExcelApp As Object
'Или так (если библиотечка подключена)
'Dim objExcelApp As Excel.Application

On Error GoTo IsExcelOpenErr
    Set objExcelApp = GetObject(, "Excel.Application")
    objExcelApp.Visible = True

    IsExcelOpen = True

IsExcelOpenBye:
    On Error Resume Next
    Set objExcelApp = Nothing
    Exit Function

IsExcelOpenErr:
    IsExcelOpen = False
    Err.Clear
    Resume IsExcelOpenBye
End Function


Пример эксплуотации:


DimAppIsRunning As Boolean

    AppIsRunning = IsExcelOpen

    If AppIsRunning = False Then
        Set objExcelApp = CreateObject("Excel.Application")
    Else
        Set objExcelApp = GetObject(, "Excel.Application")
    End If
    ' ....

    'Если Excel запускали сами (выше)...
    If AppIsRunning = False Then objExcelApp.Quit


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