Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Для проверки открыта ли книга Excel из WinCC с использованием VBA, можно использовать следующий код:Нужен крипт для WinCC на VBA для проверки открыта ли книга Excel
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
Для проверки открыта ли конкретная книга "Книга1" в Excel из WinCC с использованием VBA, можно воспользоваться следующим кодом:Нужен крипт для WinCC на VBA для проверки открыта ли книга "Книга1" в Excel
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