如何用vba遍历当前vba工程中添加的引用？

如下图所示

为vba工程中添加的引用，由于这个引用对话框无法最大化，看不到具体的每个引用的完整路径。

这时候可以用VBProject对象的References属性返回所有已添加的引用。

代码如下：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = ActiveSheet
    oWK.Cells.Clear
    arr = VBA.Array("引用的名称", "引用的路径", "GUID", "Major", "Minor", "说明")
    iCol = UBound(arr) + 1
    oWK.Range("a1").Resize(1, iCol) = arr
    Dim oRef As Reference
    With oWK
        i = 2
        '遍历所有的引用
        For Each oRef In ThisWorkbook.VBProject.References
            With oRef
                oWK.Cells(i, 1) = .Name
                oWK.Cells(i, 2) = .FullPath
                oWK.Cells(i, 3) = .GUID
                oWK.Cells(i, 4) = .Major
                oWK.Cells(i, 5) = .Minor
                oWK.Cells(i, 6) = .Description
                i = i + 1
            End With
        Next
    End With
End Sub

结果如下表所示：