看看这个递归算法，对你有所帮助
Sub TraverseComponent ( swComp As SldWorks.Component2,  nLevel As Long )
    Dim vChildCompArr               As Variant
    Dim vChildComp                  As Variant
    Dim swChildComp                 As SldWorks.Component2
    Dim swCompConfig                As SldWorks.Configuration
    Dim sPadStr                     As String
    Dim i                           As Long
    For i = 0 To nLevel - 1
        sPadStr = sPadStr + "  "
    Next i
   vChildCompArr = swComp.GetChildren
    For Each vChildComp In vChildCompArr
        Set swChildComp = vChildComp
        Debug.Print sPadStr & swChildComp.Name2 & &quot; <&quot; & swChildComp.ReferencedConfiguration & &quot;>&quot;
         If swComponentHidden = swChildComp.Visible Then
            swChildComp.Visible = swComponentVisible
        End If
        TraverseComponent swChildComp, nLevel + 1
    Next
End Sub