👌 Список подключенных библиотек
В окне «References - VBAProject» (Tools —> References...) отмечены галочкой все библиотеки, подключенные к вашим проектам VBA. Следующий код выводит список всех подключенных библиотек на рабочий лист:
#VBA #ExcelVBA #References #GUID
В окне «References - VBAProject» (Tools —> References...) отмечены галочкой все библиотеки, подключенные к вашим проектам VBA. Следующий код выводит список всех подключенных библиотек на рабочий лист:
Sub ListGUID()
Dim Ref As Object
Sheets.Add ' создаем новый лист или
' [A1:D100].Clear ' очищаем диапазон на активном листе
[A1:D1] = Array("Description", "Name", "GUID", "FullPath")
[A1:D1].Font.Bold = True
For Each Ref In ActiveWorkbook.VBProject.References
[A100].End(xlUp).Offset(1, 0) = Ref.Description
[B100].End(xlUp).Offset(1, 0) = Ref.Name
[C100].End(xlUp).Offset(1, 0) = """" & Ref.GUID & """"
[D100].End(xlUp).Offset(1, 0) = Ref.FullPath
Next
Columns("A:D").EntireColumn.AutoFit
Set Ref = Nothing
End Sub
#VBA #ExcelVBA #References #GUID
👍3