Ошибка - 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 ссылки статистикаКомментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме - добро пожаловать на Форум
Большое спасибо за наставление на путь истинный.
Огромное спасибо, за такое внятное объяснение! Убил на эту ошибку два дня и половину мозга. Еще раз спасибо!
Спасибо, большущее!!! Столько времени потратил... А оказалось все так просто.
Спасибо большое! Как все просто, если знать! Мучался, вручную делал действия за макросы, теперь жизнь моя улучшилась!!!
СПАСИБО!!!!!!!
Спасибо огромадное!
Супер. Спасибо. Все починилось. Только с бубном немного плясать пришлось, т.к. "Идете в Tools-References" а кнопка там не активна. Перезапуск экселя помог.
Здравствуте! У меня та же ошибка в программе, но у меня нету ссылки Microsoft Forms X.0 Object Library, и еще MISSING выходит вот так MISSING:Microsoft Excel XX.0 Object Library, получается с него я не могу снять галочку? Программу писала не я и вообще не знаю как писать, но пытаюсь сделать так, чтоб она работала..
Aisha, а при чем здесь то, что у Вас нет ссылки Microsoft Forms X.0 Object Library? прочитайте внимательно, что необходимо сделать для устранения проблемы:
Открываете редактор VBA
Идете в Tools-References
Находите там все пункты, напротив которых красуется MISSING. Снимаете с них галочки.
Жмете Ок.
Сохраняете файл.
Это все написано в начале статьи. Больше ничего не надо делать. Не надо выхватывать из статьи обрывки, а потом странным образом склеивать эти обрывки в свои формулировки и предположения.
После того, как я убрала эти галочки, выходит другая ошибка User-defined type not define про Excel.Workbook, так как MISSING выходил вот так MISSING:Microsoft Excel 11.0 Object Library. И что мне делать тогда?
Файл сохранили, закрыли? Сохраните, закройте Excel полностью. Откройте файл и попробуйте.