Ошибки VBA

[nikolai_P]

Добрый день!
Написал макросы на одном компьютере, а запускаю на другом. Возникают следующие ошибки:





Подскажите как решить проблему?

[EducatedFool]

А Вы не пробовали вбить текст сообщений об ошибках в строку поиска Яндекса или Гугла?

http://www.programmersforum.ru/showp...78&postcount=6
http://www.programmersforum.ru/showp...69&postcount=2

[nikolai_P]

А можно немного поподробнее об этом!

Если Вы не можете отказаться от использования дополнительных элементов управления (как это сделал я в своё время), могу лишь порекомендовать сделать дистрибутив для Вашего проекта (файл Setup.exe) при помощи бесплатной программы типа Inno Setup
Пользоваться этой утилитой просто и удобно, а для регистрации библиотек надо добавить в проект Inno всего несколько одинаковых строк вроде этих:
Цитата:
[Files]
Source: "MSFLXGRD.OCX"; DestDir: "{sys}" ; Flags: regserver sharedfile
Source: "MSWINSCK.OCX"; DestDir: "{sys}" ; Flags: regserver sharedfile

То, что каждому элементу соответствует отдельный файл - это я увидел.
А что означают остальные параметры?
Как, к примеру, мне подключить файл "Microsoft office 12.0 Object Library"
который указан на картинке?
reference.gif

[EducatedFool]

Как, к примеру, мне подключить файл "Microsoft office 12.0 Object Library"
который указан на картинке?

Он уже подключен. Ничего дополнительно делать не надо.

То, что каждому элементу соответствует отдельный файл - это я увидел.
А что означают остальные параметры?

Не обращайте на это внимание. Вам это не потребуется.
В Вашем случае проблема в другом - макросы разрабатывались в одной версии Office, а используются в другой.

[nikolai_P]

EducatedFool, дома (где писал макрос) у меня стоит Office 2007. И на работе (где тестирую) тот же стоит!
Галочку я специально поставил, чтобы выделить необходимый мне объект.

Так, к примеру я отправляю файл заказчику, и вместе с ним файл setup.exe или просто один файл setup.exe. Как сделать так, чтобы у клиента выделилась вышеуказанная библиотека?

[EducatedFool]

Так, к примеру я отправляю файл заказчику, и вместе с ним файл setup.exe

Вам придётся отправлять вместе с Вашим файлом дистрибутив Excel 2007
Если, конечно, у заказчика установлена более ранняя версия Excel.

Попробуйте сохранить проект в 2003-м Excel. (придётся Вам установить ещё одну версию Excel)
При открытии проекта-2003 в 2007-м вопросов быть не должно.

[nikolai_P]

Поковырял немного программу. Вот к чему пришел.

[Files]
Source: "MSFLXGRD.OCX"; DestDir: "{sys}" ; Flags: regserver sharedfile

Source: "Файл который нужно установить на компьютер"; DestDir: "Директория назначения"; Flags: regserver sharedfile (значение Flags пока не понял?)

Но получается проблема не в том, что нужно файла нет на используемой машине, а в том, что в не стоит галка в Tools - References.

Можно ли как-то Автоматически , возможно с помощью программы Inno setup проставить нужные галки?

[The_Prist]

1.

Sub Подключение_библиотеки()' В данном случае Word
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile Application.Path & Application.PathSeparator & "MSWORD.OLB"
End Sub

Необходимо знать имя файла нужной библиотеки
2.

Sub Проверка_библиотек_на_MISSING()
    Dim iReference As Object, iReferences As Object    'или Variant
    Set iReferences = ThisWorkbook.VBProject.References
    For Each iReference In iReferences
        If (iReference.IsBroken) Then _
           iReferences.Remove Reference:=iReference
    Next
End Sub

Для выполнения этих опреций необходимо, чтобы VBProject не был защищен.

[nikolai_P]

Вот еще нашел в хелпе:
"regserver
Регистрация OLE-сервера (он же ActiveX control). Если этот флаг установлен, инсталлятор найдет и выполнит DllRegisterServer для DLL/OCX. Деинсталлятор вызовет DllUnregisterServer. При использовании в комбинации с флагом sharedfile DLL/OCX будет только дерегистрирована, когда связывающий счетчик достигнет нуля.
"
EducatedFool, помоги пожалуйста понять эту строку!

[Files]
Source: "MSFLXGRD.OCX"; DestDir: "{sys}" ; Flags: regserver sharedfile

[nikolai_P]

The_Prist, можете прокомментировать строку?

If (iReference.IsBroken) Then _
iReferences.Remove Reference:=iReference