如何遍历VBProject/CodeModule成员？求非代码解析方案

你提到的VBIDE.CodeModule.Members属性和VBIDE.Member类属于VBIDE类型库的隐藏成员，默认在VBA对象浏览器中不可见，也无法直接调用。要访问这些成员，需通过反射实现，以下是两种可行方案：

方法一：使用TypeLib Information Library（TLBINF32.DLL） #

这是微软官方提供的类型库信息组件，可直接用于解析和调用COM对象的隐藏成员。

步骤1：引用组件 #

在VBA编辑器中，依次点击「工具」→「引用」，勾选TypeLib Information（路径通常为C:\Windows\System32\TLBINF32.DLL）。

步骤2：实现代码 #

Sub ListVBProjectMembers()
    Dim vbProj As VBIDE.VBProject
    Dim vbComp As VBIDE.VBComponent
    Dim codeMod As VBIDE.CodeModule
    Dim tlInfo As TLI.TypeLibInfo
    Dim typeInfo As TLI.TypeInfo
    Dim memberInfo As TLI.MemberInfo
    Dim members As Object
    Dim member As Object
    
    ' 绑定当前工作簿的VBProject
    Set vbProj = ThisWorkbook.VBProject
    
    ' 加载VBIDE类型库信息
    Set tlInfo = TLI.TypeLibInfoFromFile("C:\Program Files\Microsoft Office\root\VFS\ProgramFilesCommonX86\Microsoft Shared\VBA\VBA7.1\VBE7.DLL")
    
    ' 遍历所有VB组件
    For Each vbComp In vbProj.VBComponents
        Set codeMod = vbComp.CodeModule
        
        ' 获取CodeModule的类型信息
        Set typeInfo = tlInfo.TypeInfoFromObject(codeMod)
        
        ' 查找隐藏的Members属性
        For Each memberInfo In typeInfo.Members
            If memberInfo.Name = "Members" Then
                ' 调用Members属性获取成员集合
                Set members = CallByName(codeMod, memberInfo.Name, VbGet)
                
                ' 遍历并输出成员详情
                For Each member In members
                    Debug.Print "名称: " & CallByName(member, "Name", VbGet)
                    Debug.Print "类型: " & CallByName(member, "Type", VbGet)
                    Debug.Print "作用域: " & CallByName(member, "Scope", VbGet)
                    Debug.Print "-------------------------"
                Next member
            End If
        Next memberInfo
    Next vbComp
End Sub

方法二：直接使用IDispatch反射（无需额外引用） #

如果不想依赖外部组件，可通过调用OLE自动化API，直接操作IDispatch接口实现反射。

步骤1：声明API #

Private Declare PtrSafe Function DispCallFunc Lib "oleaut32.dll" ( _
    ByVal pvInstance As LongPtr, _
    ByVal oVft As LongPtr, _
    ByVal cc As Long, _
    ByVal vtReturn As VbVarType, _
    ByVal cActuals As Long, _
    ByRef prgvt As VbVarType, _
    ByRef prgpvarg As LongPtr, _
    ByRef pvargResult As Variant, _
    ByRef pexcepinfo As LongPtr, _
    ByVal fuErrorInfo As Long _
) As Long

Private Declare PtrSafe Function GetIDsOfNames Lib "oleaut32.dll" ( _
    ByVal pDispatch As LongPtr, _
    ByRef rgszNames As LongPtr, _
    ByVal cNames As Long, _
    ByVal lcid As Long, _
    ByRef rgDispId As LongPtr _
) As Long

Private Const DISPATCH_PROPERTYGET As Long = 2
Private Const LOCALE_USER_DEFAULT As Long = &H400

步骤2：封装反射调用函数 #

Private Function CallHiddenMember(obj As Object, memberName As String) As Variant
    Dim pDispatch As LongPtr
    Dim dispId As LongPtr
    Dim pvResult As Variant
    Dim hr As Long
    
    pDispatch = ObjPtr(obj)
    
    ' 获取成员的DispId
    hr = GetIDsOfNames(pDispatch, StrPtr(memberName), 1, LOCALE_USER_DEFAULT, dispId)
    If hr <> 0 Then Err.Raise hr
    
    ' 调用属性获取值
    hr = DispCallFunc(pDispatch, dispId, DISPATCH_PROPERTYGET, vbVariant, 0, _
                     ByVal 0&, ByVal 0&, pvResult, ByVal 0&, 0)
    If hr <> 0 Then Err.Raise hr
    
    CallHiddenMember = pvResult
End Function

步骤3：获取并输出成员 #

Sub ListMembersWithIDispatch()
    Dim vbProj As VBIDE.VBProject
    Dim vbComp As VBIDE.VBComponent
    Dim codeMod As VBIDE.CodeModule
    Dim members As Object
    Dim member As Object
    
    Set vbProj = ThisWorkbook.VBProject
    
    For Each vbComp In vbProj.VBComponents
        Set codeMod = vbComp.CodeModule
        
        ' 获取隐藏的Members集合
        Set members = CallHiddenMember(codeMod, "Members")
        
        If Not members Is Nothing Then
            For Each member In members
                Debug.Print "名称: " & CallHiddenMember(member, "Name")
                Debug.Print "类型: " & CallHiddenMember(member, "Type")
                Debug.Print "作用域: " & CallHiddenMember(member, "Scope")
                Debug.Print "-------------------------"
            Next member
        End If
    Next vbComp
End Sub

关键注意事项 #

1. 启用VBA项目访问权限：需在Excel选项的「信任中心」→「宏设置」中勾选「信任对VBA项目对象模型的访问」。
2. 64位兼容性：上述代码已适配64位Office，使用PtrSafe和LongPtr确保兼容性。
3. 编译项目支持：对于已编译的VBProject（如Excel加载项），只要能获取到VBProject对象，即可用相同方法解析成员。

内容的提问来源于stack exchange，提问作者hymced