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