Ошибка - Cant find project or library
Представим себе ситуацию - вы написали макрос и кому-то выслали. Макрос хороший, нужный, а главное - рабочий. Вы сами проверили и перепроверили. Но тут вам сообщают -
Или наоборот - Вы открыли чей-то чужой файл и при попытке выполнить код VBA выдает ошибку
- Открываем редактор VBA
- Идем в
Tools -References - Находим там все пункты, напротив которых красуется
MISSING .
Снимаем с них галочки - Жмем Ок
- Сохраняем файл
Эти действия необходимо проделать, когда выполнение кода прервано и ни один код проекта не выполняется. Возможно, придется перезапустить Excel.
Всегда проверяйте ссылки в файлах перед отправкой получателю. Оставьте там лишь те ссылки, которые необходимы, либо которые присутствуют на всех версиях. Смело можно оставлять следующие(это касается именно VBA -Excel):
Visual Basic for application (эту ссылку отключить нельзя)Microsoft Excel XX.0 Object Library (место X версия приложения - 12, 11 и т.д.). Эту ссылку нельзя отключить из Microsoft ExcelMicrosoft Forms X.0 Object Library. Эта ссылка подключается как руками, так и автоматом при первом создании любой UserForm в проекте. Однако отключить её после подключения уже не получитсяOLE Automation . Хотя она далеко не всегда нужна - не будет лишним, если оставить её подключенной. Т.к. она подключается автоматически при создании каждого файла, то некоторые "макрописцы" используют методы из этой библиотеки, даже не подозревая об этом, а потом не могут понять, почему код внезапно отказывается работать(причем ошибка может быть уже другой - вроде "Не найден объект либо метод")
Может я перечислил не все - но эти точно имеют полную совместимость между разными версиями Excel.
Если все же по какой-то причине есть основания полагать, что в библиотеках могут появиться "битые" ссылки
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 |
Но для работы этого макроса необходимо:
- проставить доверие к проекту VBA:
Excel 2010-2019 - Файл -Параметры -Центр управления безопасностью-Параметры макросов-поставить галочку "Доверять доступ к объектной модели проектов VBA"
Excel 2007 - Кнопка Офис-Параметры Excel-Центр управления безопасностью-Параметры макросов-поставить галочку "Доверять доступ к объектной модели проектов VBA"
Excel 2003- Сервис - Параметры-вкладка Безопасность-Параметры макросов-Доверять доступ к Visual Basic Project - проект VBA не должен быть защищен
И главное - всегда помните, что ошибка
Так же
Например, есть такой кусок кода:
Sub CreateWordDoc() Dim oWordApp As Word.Application Set oWordApp = New Word.Application oWordApp.Documents.Add |
если библиотека
Если используются какие-либо методы из библиотеки и есть вероятность, что библиотека будет отключена - можно попробовать проверить её наличие кодом и либо выдать сообщение, либо подключить библиотеку(для этого надо будет либо знать её GUIDE, либо полный путь к ней на конечном ПК).
На примере стандартной библиотеки
Выдать сообщение - нужно в случаях, если не уверены, что можно вносить подобные изменения в 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 ссылки статистикаКомментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме - добро пожаловать на Форум
Огромное спасибо!!!
Вчера почти целый день воевал с этим Can’t find project or library!!!
На форумах фигню всяку пишут. А тут всё просто и понятно!!!
Еще раз огромное спасибо!!!
Да спасибо большое полностью согласен с предыдущим комментарием! Нужно было сразу так запрос поставить в поиске! Все работает! Я знал, что это пустяковая проблема но не знал как её решить. Спасибо этому сайту!
Поправка:
"Microsoft Excel XX.0 Object Library" - не знаю, как с Excel XX, но у меня только что не хотел работать написанный в Excel макрос (под одними и теми же операционками, под одними и теми же офисами) из-за Microsoft Word 12.0 Object Library, так что их полная совместимость всё-таки под вопросом.
Правильно. Потому что для Excel библиотека Word является сторонней. Т.е. подключаемой извне. Так же как в данном случае будет и с библиотекой Excel, если работаете в Word-е. Почему так. Потому что запуская Excel Вы не можете работать в VBA без подключенной к нему библиотеке «Microsoft Excel XX.0 Object Library» и автоматом подключается та библиотека Excel, которая доступна из запущенной версии Excel.
большое спасибо! Очень доступно написано! Сработало даже с вба в solidworks!
Спасибо огромное!
очень досупно и по существу
Может я краб-криворукий, но я никак не могу найти пункты, напротив которых красуется MISSING.
Георгий - а с чего Вы взяли, что они у Вас обязательно должны быть?
Ну исходя из Вашего поста.
У меня просто при открытии екселя первым делом выскакивает сообщение "could not load an object because it is not available on this machine" Вот и ищу пути возможного решения.
Георгий, а Вас не смутило, что статья совершенно про другую ошибку? Какое отношение она должна иметь к Вашей проблеме?
У Вас проблема в том, что в книге, которую Вы загружаете, используется компонент, который отсутствует на Вашем ПК и поэтому не может быть загружен. Вам необходимо узнать, что это за объект, в какой библиотеке типов содержится, скачать эту библиотеку и зарегистрировать на ПК.