Если нужно узнать, загружена в памяти надстройка или рабочая книга без перебора и не только видимые книги, то можно это легко сделать вот таким вот способом:
'======================================================================================= ' Функция, проверяющая наличия в памяти книги/надстройки Public Function CheckInMemory(ByVal WBName As String, Optional ByVal TrimName As Boolean = True) As Boolean CheckInMemory= False If TrimName Then WBName = Trim(WBName) If WBName = "" Then Exit Function On Error GoTo BayBay If Len(Workbooks(WBName).FullName) > 0 Then CheckInMemory= True Exit Function End If BayBay: End Function
Пример использования:
If Not CheckInMemory("zip.xla") Then Exit Sub
If CheckInMemory("mybase.xls") Then MsgBox "Можно работать дальше!" End If