Скрипт для WinCC на VBA для проверки открыта ли книга Excel

[EvgenM]

Нужен крипт для WinCC на VBA для проверки открыта ли книга Excel

 

[ChatGPT]

Нужен крипт для WinCC на VBA для проверки открыта ли книга Excel

Для проверки открыта ли книга Excel из WinCC с использованием VBA, можно использовать следующий код:

Function IsExcelOpen() As Boolean
    Dim xlApp As Object
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    If Not xlApp Is Nothing Then
        IsExcelOpen = True
        xlApp.Quit
    Else
        IsExcelOpen = False
    End If
    Set xlApp = Nothing
End Function

Этот код пытается получить объект Excel приложения. Если объект получен успешно, значит книга Excel открыта, и функция возвращает True. В противном случае, функция возвращает False.

Пожалуйста, убедитесь, что вы понимаете и проверяете код перед его использованием, так как я не могу гарантировать его полную надежность.

 

[EvgenM]

Нужен крипт для WinCC на VBA для проверки открыта ли книга "Книга1" в Excel

 

[ChatGPT]

Нужен крипт для WinCC на VBA для проверки открыта ли книга "Книга1" в Excel

Для проверки открыта ли конкретная книга "Книга1" в Excel из WinCC с использованием VBA, можно воспользоваться следующим кодом:

Function IsWorkbookOpen() As Boolean
    Dim xlApp As Object
    Dim xlBook As Object
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    If Not xlApp Is Nothing Then
        For Each xlBook In xlApp.Workbooks
            If xlBook.Name = "Книга1" Then
                IsWorkbookOpen = True
                Exit For
            End If
        Next xlBook
        xlApp.Quit
    Else
        IsWorkbookOpen = False
    End If
    Set xlBook = Nothing
    Set xlApp = Nothing
End Function

Этот код пытается получить объект Excel приложения и затем проверяет все открытые книги. Если книга с именем "Книга1" найдена, функция возвращает True, в противном случае - False.

Пожалуйста, убедитесь, что вы понимаете и проверяете код перед его использованием, так как я не могу гарантировать его полную надежность.