Код для подключения своей DLL в references.

[penb]

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

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

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

[doober]

В какой среде написана DLL?
А файл template20.TLB случайно не создается?

[penb]

Сообщение от doober

В какой среде написана DLL?
А файл template20.TLB случайно не создается?

1. DLL написан на VB6
2. TLB не наблюдаю, может быть не туда смотрю.

Примечание: при ручном прикреплении dll работает.

[EducatedFool]

Предположения:

1) в настройках Excel не установлена галочка
«Доверять доступ к объектной модели»

2) вместо

AddFromFile "template20.dll"

надо что-то вроде

AddFromFile "<полный путь к файлу>\template20.dll"