Private Sub ll()

  Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

  Dim SwDraw As DrawingDoc, SwSelMgr As SelectionMgr

  Dim SwFeat As Feature, BomFeat As BomFeature

    Set SwApp = Application.SldWorks

    Set SwModel = SwApp.ActiveDoc

    Debug.Print SwModel.GetTitle

    Set SwSelMgr = SwModel.SelectionManager

    ''

    Set BomFeat = SwSelMgr.GetSelectedObject6(1, -1)

  Dim SwTabAnn As TableAnnotation, SwAnn As Annotation

    Set SwTabAnn = BomFeat.GetTableAnnotations(0)

    Set SwAnn = SwTabAnn.GetAnnotation   

End Sub

question

Swann.owner  → get sheet name

but don't get view name?

************************

SolidWorks Forums: Bill of Material and Balloons

https://forum.solidworks.com/thread/74207

SolidWorks Forums: How to get bill of materials to link to assembly/drawing view configurations?

https://forum.solidworks.com/message/384924#384924