查找子窗体父级对象及获取窗体完整层级路径的实现方案咨询

核心思路 #

编写通用VBA遍历函数，从目标控件出发向上递归查找父级窗体，自动拼接完整层级路径，无需预先硬编码层级信息，支持任意深度的子窗体嵌套场景。

实现代码 #

Function GetControlFormFullPath(ctl As Control) As String
    Dim currentObj As Object
    Dim fullPath As String
    
    ' 初始化定位到控件所属的当前窗体
    Set currentObj = ctl.Parent
    
    Do
        ' 拼接层级路径，父级名称拼接在路径最前方
        If fullPath = vbNullString Then
            fullPath = currentObj.Name
        Else
            fullPath = currentObj.Name & "!" & fullPath
        End If
        
        ' 尝试获取上一级父对象，无父对象时终止循环
        On Error Resume Next
        Set currentObj = currentObj.Parent
        If Err.Number <> 0 Then Exit Do
        On Error GoTo 0
    ' 仅当父对象为窗体类型时继续向上遍历
    Loop While TypeOf currentObj Is Form
    
    GetControlFormFullPath = fullPath
End Function

使用示例 #

在需要获取combobox所属窗体路径的位置直接调用函数即可：

Dim formFullPath As String
' 替换为你实际的combobox控件名
formFullPath = GetControlFormFullPath(Me.你的combobox名称)

适配说明 #

• 若你需要的路径中需使用子窗体本身的窗体对象名，而非父窗体中嵌入的子窗体控件名，可将代码中的currentObj.Name替换为currentObj.Form.Name，可按需增加判断逻辑区分主窗体与子窗体场景。
• 该函数天然支持超过2级的嵌套子窗体场景，无需修改代码即可扩展适配。

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