MyTetra Share
Делитесь знаниями!
Установка и удаление ссылок (References) на другие проекты VBA
Время создания: 16.03.2019 23:43
Текстовые метки: References, Объектная модель, VBOM
Раздел: !Закладки - VBA - VBA управление кодами
Sub RemoveReference()
    For Each Ref In Application.VBE.ActiveVBProject.References
        ' Debug.Print Ref.Name
        If Ref.Name = "My_Project" Then Application.VBE.ActiveVBProject.References.Remove Ref
    Next
End Sub
 
Sub AddReference(): Found = False
    For Each Ref In Application.VBE.ActiveVBProject.References
        Debug.Print Ref.Name
        If Ref.Name = "My_Project" Then Found = True
    Next
    If Not Found Then Application.VBE.ActiveVBProject.References.AddFromFile "c:\Program Files\MyProject.xla"
End Sub
  • 6216 просмотров
Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования