Главная » Макросы для 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

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

Комментарии

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

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

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

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