MyTetra Share
Делитесь знаниями!
MS Excel - Проверка - запущен или нет
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 11 Импорт - Экспорт
Запись: xintrea/mytetra_db_adgaver_new/master/base/1532017318ydindqcinu/text.html на raw.githubusercontent.com

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





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


Dim AppIsRunning 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





Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования