[penb]

Приветствую!
Написал DLL, теперь хочу программными методами автоматизировать её подключение, чтобы без лишних телодвижений использовать проект на разных компах. На основе хэлпа и гугла, собрал такой код, но он выдаёт ошибку Object Required в строке ActiveProject.VBProject.References. AddFromFile "template20.dll"
DLL написана на VB6 и ручном подключении отлично работает.

Помогите разобраться, пожалуйста!

Код:

[Выделить все]

Sub RefChk()

Dim XLRef As Boolean
Dim oRef As Object

XLRef = False

For Each oRef In ThisProject.VBProject.References

   If oRef.Name = "template20" Then

        XLRef = True

      Exit For

    End If

Next

If XLRef = False Then

    ActiveProject.VBProject.References.AddFromFile "template20.dll"

    End

End If

End Sub

[Олег (jr.)]

Навскидку
Эта строка

Код:

[Выделить все]

ActiveProject.VBProject.References. AddFromFile "template20.dll"

подразумевает что твоя длл-ка загружена + файл "template20.dll" находится на путях
которые прописаны в опциях текущего профиля
Возможно нужно еще добавить

Код:

[Выделить все]

dim prefs as object
dim path as string
path= "C:\MyFolder\MyProects\" & "template20.dll"
Set prefs = ActiveProject.VBProject.References
prefs.AddFromFile path

[penb]

Сообщение от Олег (jr.) подразумевает что твоя длл-ка загружена + файл "template20.dll" находится на путях которые прописаны в опциях текущего профиля Возможно нужно еще добавить

Вылетает с object required на строке:
Set prefs = ActiveProject.VBProject.References