Главная » Макросы для Excel » Установка и удаление ссылок (References) на другие проекты VBA

Установка и удаление ссылок (References) на другие проекты 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

  • 8466 просмотров

Комментарии

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
   __     _  _             _____  __        __        
  / /_   | || |     __ _  | ____| \ \      / /   __ _ 
 | '_ \  | || |_   / _` | |  _|    \ \ /\ / /   / _` |
 | (_) | |__   _| | (_| | | |___    \ V  V /   | (_| |
  \___/     |_|    \__, | |_____|    \_/\_/     \__, |
                   |___/                        |___/
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.