Анализ терминальных свойств проектов коллекции
|
Public Sub WorkWithProjects() ' Анализ терминальных свойств проектов коллекции VBProjects 'Dim MyProject As VBProject Dim MyProject As Object 'Dim MyAddIn As AddIn Dim MyAddIn As Object 'Анализ свойств проектов Debug.Print "Число проектов в коллекции - ", VBE.VBProjects.Count For Each MyProject In VBE.VBProjects With MyProject Debug.Print "Имя Файла - ", .FileName Debug.Print "Имя проекта", .Name Debug.Print "Тип проекта", .Type Debug.Print "Описание проекта", .Description Debug.Print "Статус защиты", .Protection Debug.Print "Статус проекта", .Mode 'Debug.Print "Изменения Вносились? ", .IsDirty Debug.Print "Имя Dll", .BuildFileName 'Debug.Print "Начальный статус", .StartMode End With Next MyProject ' Анализ коллекции AddIns Debug.Print "Число AddIn в коллекции = ", VBE.AddIns.Count For Each MyAddIn In VBE.AddIns Debug.Print "GUID AddIn = ", MyAddIn.GUID Debug.Print "Описание AddIn - ", MyAddIn.Description Next MyAddIn End Sub |
| Листинг 4.1. |
| Закрыть окно |
