Открыт ли Excel-файл?
Полезный макрос, обычно необходимый в ситуации, когда программным способом необходимо открыть Excel-файл. Чтобы не возникло сообщение об ошибке, нужно убедиться что файл ещё не открыт.
'Открыта ли книга?
Public Function IsBookOpen(wbFullName As String) As Boolean
Dim iFF As Integer
iFF = FreeFile
On Error Resume Next
Open wbFullName For Random Access Read Write Lock Read Write As #iFF
Close #iFF
IsBookOpen = Err
End Function
Убедившись что книга открыта. можно выяснять другие вопросы - например, сушествует ли в ней лист с заданным именем?