Страницы: 1
RSS
Как получить ссылку на открытый файл с установленным isAddin = True?
 
Подскажите пожалуйста, как можно получить ссылку на книгу, которую я открыл и установил свойство workbook'а isAddin = True?
Если открыта книга со свойством isAddin = True, я не могу открыть другую книгу с таким именем... хотелось бы перед открытием проверить уже открытые
 
Код
Function IsBookOpen(wbName As String) As Boolean
    Dim wbBook
    On Error Resume Next
    Set wbBook = Application.Workbooks(wbName)
    IsBookOpen = Not wbBook Is Nothing
End Function

А так вызываете:
Код
If IsBookOpen("Multex.xla") Then
    msgbox "Надстройка открыта", vbInformation
End if
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо большое!
Страницы: 1
Наверх