• На форуме с 30 октября 2006г.
  • Сообщений: 70
  • Спасибо: 0

Тема: Доступ к списку References

Какой функцией можно проверить: находится заданная библиотека в списке References или нет. Например может есть специальная функция TypeLibFromLIBID возвращающая название библиотеки по заданному LIBID. А может можно самому написать такую функцию используя функции работы с реестром? Тогда в какой ветви реестра надо искать и какую для этого использовать функцию?

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Доступ к списку References

> Миша
Попробуй так:

Option Explicit
Sub GetReferences()
Dim vbeObj As Object
Dim varRefs As Object, itmRef As Object
Dim i As Long
Set vbeObj = VBE
Set varRefs = ThisDrawing.Application.VBE.ActiveVBProject.References
i = 0
For Each itmRef In varRefs
i = i + 1
Debug.Print "Reference no." & CStr(i) & ": "; itmRef.Description
Debug.Print "GUID: " & itmRef.GUID
Next
End Sub

~'J'~