Представим себе ситуацию - вы написали макрос и кому-то выслали. Макрос хороший, нужный, а главное - рабочий. Вы сами проверили и перепроверили. Но тут вам сообщают -
Или наоборот - Вы открыли чей-то чужой файл и при попытке выполнить код 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 проекта?
Добрый день! Подскажите пожалуйста, а что если такая ошибка вылетает на компе, на котором я и написала макрос, и которым пользуюсь ежедневно? Формирую ежедневный отчет, и периодически в непонятные дни бывает открываешь файл с макросом, там это сообщение и ни следа от кода не осталось, тогда я копирую файл с ним за какой-либо из предыдущих дней и все работает. В макросе ничего особенного - есть три источника данных, каждые данные в одной или нескольких книгах ексель, каждую статистику собираю из этих файлов на свой лист, протягивается пара формул и делаются для каждой статистики свой лист со сводной таблицей. Спасибо!
Подскажите ошибка такая имеется, кнопка ресет нажата, а меню референсис не открывается не под каким предлогом?
1. Проект защищен паролем и пароль еще не снят.
2. Какая-то процедура все же выполняется.
Ничего другого на ум не приходит по одному описанию.
Просто сняла галочки в библиотеках и поставила обратно их же, сохранила, закрыла фай и снова открыла - и О ЧУДО оно снова работает как ни в чем не бывало.
А если такая ошибка возникает не на другом ПК, а на том же на каком скрипт создавался.
файл был сохранен xlsm, потом был BSOD (не ясно есть ли с этим связь) и теперь при любом изменении данных в ячейке книги возникает это сообщение.
Александр, в Tools -References заходили? MISSING там искали? Если есть - надо снять галочки. Если нет - значит проблема в том, что в коде есть ссылки на библиотеки, которых на ПК просто нет. В этом случае надо в точности знать, что именно должно быть и анализировать код, смотреть что выделяется при этой ошибке. Возможно, это как раз связана с этим самым BSOD.
В статье об этом тоже написано, но на примере Word. Ознакомьтесь внимательно - каждый такой случай индивидуален и угадать какой библиотеки нет очень сложно(приписка в конце статьи именно об этом).