Условие на открытие файла Excel

[Hant]

Друзья, помогите, не могу справиться.

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

Заранее спасибо!

Sub GetOpenFilename()

Filt = "База (*.xls),*.xls"

FilterIndex = 1


Title = "Выберите файл для загрузки данных"


FileN = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title, _
MultiSelect:=False)


If FileN = False Then
MsgBox "Файл не выбран."
Exit Sub
End If

End Sub

[SAS888]

После получения имени файла с помощью Вашей процедуры, перед тем, как открывать файл, можно воспользоваться следующим вариантом:

Dim х As Workbook
    
    On Error Resume Next
        Set x = Workbooks(FileN)
        If Err = 0 Then
            'действия, если файл уже открыт
        Else
            'действия, если файл не открыт
        End If
    On Error GoTo 0

[Hant]

Благодарю за помощь!!