Lost your password?


Хитрости »
Основные понятия (26)
Сводные таблицы и анализ данных (10)
Графики и диаграммы (5)
Работа с VB проектом (12)
Power BI и Power Query (20)
Условное форматирование (5)
Списки и диапазоны (5)
Макросы(VBA процедуры) (68)
Разное (43)
Баги и глюки Excel (4)

Ошибка - Cant find project or library

Представим себе ситуацию - вы написали макрос и кому-то выслали. Макрос хороший, нужный, а главное - рабочий. Вы сами проверили и перепроверили. Но тут вам сообщают - Макрос не работает. Выдает ошибку - Can't find project or library. Вы запускаете файл - нет ошибки. Перепроверяете все еще несколько раз - нет ошибки и все тут. Как ни пытаетесь, какие данные не подсовываете, а ошибки такой нет. Вы уверены, что файл рабочий полностью(и верно - ведь у нас работает), но вам пытаются доказать обратное. Вы начинаете долго объяснять как пользоваться, что делать и т.д. и т.п. Ошибка не исчезает. Что делать-то? В чем проблема? Даже офис переустановили - у вас работает, у них нет. А проблема проста: как и любой программе, VBA нужно иметь свой набор библиотек и компонентов, посредством которых он взаимодействует с Excel(и не только). И в разных версиях Excel эти библиотеки и компоненты могут различаться. И когда вы делаете у себя программу, то VBA(или вы сами) ставит ссылку на какой-либо компонент либо библиотеку, которая может отсутствовать на другом компьютере. Вот тогда и появляется эта ошибка. Что же делать? Все очень просто:

  1. Открываем редактор VBA
  2. Идем в Tools -References
  3. Находим там все пункты, напротив которых красуется MISSING.

    Снимаем с них галочки
  4. Жмем Ок
  5. Сохраняем файл

Эти действия необходимо проделать, когда выполнение кода прервано и ни один код проекта не выполняется. Возможно, придется перезапустить Excel. Что самое печальное: все это должен проделать человек, у которого данная ошибка возникла. Это не всегда удобно. А поэтому лично я рекомендовал бы не использовать сторонние библиотеки и раннее связывание, если это не вызвано необходимостью. Всегда проверяйте ссылки в файлах перед отправкой получателю. Оставьте там лишь те ссылки, которые необходимы, либо которые присутствуют на всех версиях. Смело можно оставлять следующие(это касается именно VBA -Excel):

  • Visual Basic for application (эту ссылку отключить нельзя)
  • Microsoft Excel XX.0 Object Library (место X версия приложения - 12, 11 и т.д.). Эту ссылку нельзя отключить из Microsoft Excel
  • Microsoft Forms X.0 Object Library. Эта ссылка подключается как руками, так и автоматом при первом создании любой UserForm в проекте. Однако отключить её после подключения уже не получится
  • OLE Automation. Хотя она далеко не всегда нужна - не будет лишним, если оставить её подключенной. Т.к. она подключается автоматически при создании каждого файла, то некоторые "макрописцы" используют методы из этой библиотеки, даже не подозревая об этом, а потом не могут понять, почему код внезапно отказывается работать(причем ошибка может быть уже другой - вроде "Не найден объект либо метод")

Может я перечислил не все - но эти точно имеют полную совместимость между разными версиями Excel.

Если все же по какой-то причине есть основания полагать, что в библиотеках могут появиться "битые" ссылки MISSING, можно автоматически найти "битые" ссылки на такие библиотеки и отключить их нехитрым макросом:

Sub Remove_MISSING()
    Dim oReferences As Object, oRef As Object
    Set oReferences = ThisWorkbook.VBProject.References
    For Each oRef In oReferences
        'проверяем, является ли эта библиотека сломанной - MISSING
        If (oRef.IsBroken) Then
            'если сломана - отключаем во избежание ошибок
            oReferences.Remove Reference:=oRef
        End If
    Next
End Sub

Но для работы этого макроса необходимо:

  1. проставить доверие к проекту VBA:
    Excel 2010-2019 - Файл -Параметры -Центр управления безопасностью-Параметры макросов-поставить галочку "Доверять доступ к объектной модели проектов VBA"
    Excel 2007 - Кнопка Офис-Параметры Excel-Центр управления безопасностью-Параметры макросов-поставить галочку "Доверять доступ к объектной модели проектов VBA"
    Excel 2003- Сервис - Параметры-вкладка Безопасность-Параметры макросов-Доверять доступ к Visual Basic Project
  2. проект VBA не должен быть защищен

И главное - всегда помните, что ошибка Can't find project or library может появиться до запуска кода по их отключению(Remove_MISSING). Все зависит от того, что и как применяется в коде и в какой момент идет проверка на "битые" ссылки.

Так же Can't find project or library возникает не только когда есть "битая" библиотека, но и если какая-либо библиотека, которая используется в коде, не подключена. Тогда не будет MISSING. И в таком случае будет необходимо определить в какую библиотеку входит константа, объект или свойство, которое выделяет редактор при выдаче ошибки, и подключить эту библиотеку.
Например, есть такой кусок кода:

Sub CreateWordDoc()
    Dim oWordApp As Word.Application
    Set oWordApp = New Word.Application
    oWordApp.Documents.Add

если библиотека Microsoft Excel XX.0 Object Library(вместо XX версия приложения - 11, 12, 16 и т.д.) не подключена, то будет подсвечена строка oWordApp As Word.Application. И конечно, надо будет подключить соответствующую библиотеку.
Если используются какие-либо методы из библиотеки и есть вероятность, что библиотека будет отключена - можно попробовать проверить её наличие кодом и либо выдать сообщение, либо подключить библиотеку(для этого надо будет либо знать её GUIDE, либо полный путь к ней на конечном ПК).
На примере стандартной библиотеки OLE Automation(файл библиотеки называется stdole2) приведу коды, которые помогут проверить наличие её среди подключенных и либо показать сообщение либо сразу подключить.
Выдать сообщение - нужно в случаях, если не уверены, что можно вносить подобные изменения в VBAProject(например, если он защищен паролем):

Sub CheckReference()
    Dim oReferences As Object, oRef As Object, bInst As Boolean
    Set oReferences = ThisWorkbook.VBProject.References
    'проверяем - подключена ли наша библиотека или нет
    For Each oRef In oReferences
        If LCase(oRef.Name) = "stdole" Then bInst = True
    Next
    'если не подключена - выводим сообщение
    If Not bInst Then
        MsgBox "Не установлена библиотека OLE Automation", vbCritical, "Error"
    End If
End Sub

Если уверены, что можно вносить изменения в VBAProject - то удобнее будет проверить наличие подключенной библиотеки "OLE Automation" и сразу подключить её, используя полный путь к ней(на большинстве ПК этот путь будет совпадать с тем, что в коде):

Sub CheckReferenceAndAdd()
    Dim oReferences As Object, oRef As Object, bInst As Boolean
    Set oReferences = ThisWorkbook.VBProject.References
    'проверяем - подключена ли наша библиотека или нет
    For Each oRef In oReferences
        Debug.Print oRef.Name
        If LCase(oRef.Name) = "stdole" Then bInst = True
    Next
    'если не подключена - подключаем, указав полный путь и имя библиотеки на ПК
    If Not bInst Then
        ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\stdole2.tlb"
    End If
End Sub

Сразу подкину ложку дегтя(предугадывая возможные вопросы): определить автоматически кодом какая именно библиотека не подключена невозможно. Ведь чтобы понять из какой библиотеки метод или свойство - надо откуда-то эту информацию взять. А она внутри той самой библиотеки...Замкнутый круг :)

Так же см.:
Что необходимо для внесения изменений в проект VBA(макросы) программно
Как защитить проект VBA паролем
Как программно снять пароль с VBA проекта?


Статья помогла? Поделись ссылкой с друзьями!
  Плейлист   Видеоуроки

Поиск по меткам

Access apple watch Multex Power Query и Power BI VBA управление кодами Бесплатные надстройки Дата и время Записки ИП Надстройки Печать Политика Конфиденциальности Почта Программы Работа с приложениями Разработка приложений Росстат Тренинги и вебинары Финансовые Форматирование Функции Excel акции MulTEx ссылки статистика
Обсуждение: 48 комментариев
  1. Annie91:

    Добрый день! Подскажите пожалуйста, а что если такая ошибка вылетает на компе, на котором я и написала макрос, и которым пользуюсь ежедневно? Формирую ежедневный отчет, и периодически в непонятные дни бывает открываешь файл с макросом, там это сообщение и ни следа от кода не осталось, тогда я копирую файл с ним за какой-либо из предыдущих дней и все работает. В макросе ничего особенного - есть три источника данных, каждые данные в одной или нескольких книгах ексель, каждую статистику собираю из этих файлов на свой лист, протягивается пара формул и делаются для каждой статистики свой лист со сводной таблицей. Спасибо!

  2. Jolly:

    Подскажите ошибка такая имеется, кнопка ресет нажата, а меню референсис не открывается не под каким предлогом?

    • 1. Проект защищен паролем и пароль еще не снят.
      2. Какая-то процедура все же выполняется.
      Ничего другого на ум не приходит по одному описанию.

  3. Мисисс:

    Просто сняла галочки в библиотеках и поставила обратно их же, сохранила, закрыла фай и снова открыла - и О ЧУДО оно снова работает как ни в чем не бывало.

  4. Александр:

    А если такая ошибка возникает не на другом ПК, а на том же на каком скрипт создавался.
    файл был сохранен xlsm, потом был BSOD (не ясно есть ли с этим связь) и теперь при любом изменении данных в ячейке книги возникает это сообщение.

    • Александр, в Tools -References заходили? MISSING там искали? Если есть - надо снять галочки. Если нет - значит проблема в том, что в коде есть ссылки на библиотеки, которых на ПК просто нет. В этом случае надо в точности знать, что именно должно быть и анализировать код, смотреть что выделяется при этой ошибке. Возможно, это как раз связана с этим самым BSOD.
      В статье об этом тоже написано, но на примере Word. Ознакомьтесь внимательно - каждый такой случай индивидуален и угадать какой библиотеки нет очень сложно(приписка в конце статьи именно об этом).

Поделитесь своим мнением

Комментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме - добро пожаловать на Форум


Для оформления сообщений Вы можете использовать следующие тэги:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Тренинги

Заказать
Юридическая информация

Использование материалов сайта

Политика Конфиденциальности

ИП Щербаков Дмитрий Валентинович
ОГРНИП: 318502700083307
ИНН: 504013350772

Наши партнеры

Перейти
Перейти

Счетчики

Рейтинг@Mail.ru Яндекс.Метрика
© 2022 Excel для всех   Войти