Sub qqq()
    Dim SwApp                       As SldWorks.SldWorks
    Dim SwModel                     As SldWorks.ModelDoc2
    Dim SwAssy                      As SldWorks.AssemblyDoc
    Dim swComp                  As SldWorks.Component2
    Dim compCount As Integer
    Dim vComponents As Variant

    Dim i As Integer
    Set SwApp = CreateObject("SldWorks.Application")
    Set SwModel = SwApp.ActiveDoc
    Set SwAssy = SwModel
    compCount = SwAssy.GetComponentCount(False)
    vComponents = SwAssy.GetComponents(False)
   
    For i = 0 To compCount - 1
        Set swComp = vComponents(i)
        Debug.Print swComp.GetPathName
    Next i           
End Sub

Question

Why don't run GetTitle