Have found some code that will create a BOM Table in an assembly, it then exports it as a text file and then deletes the BOM from the assembly.

It works ok except that it creates a new table each time it is run.

I would like to do something similar, but the BOM Table will already exist in the assembly. How do I get the BOM Table so that I can export it out to a text file or even better a .xls file?

thanks Andrew.

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swBOMTable As SldWorks.BomTableAnnotation
Dim swTable As SldWorks.TableAnnotation
Dim swAnn As SldWorks.Annotation

Const BOMTemplate As String = "C:\templates\parts list.sldbomtbt"
Const OutputPath As String = "C:\"

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swBOMTable = swModel.Extension.InsertBomTable(BOMTemplate, 0, 0, swBomType_e.swBomType_PartsOnly, "")
    Set swTable = swBOMTable
  
    swTable.SaveAsText OutputPath & "BOMTable_" & swModel.GetTitle() & ".txt", "Default" 
    Set swAnn = swTable.GetAnnotation
  
    swAnn.Select3 False, Nothing

    'swModel.EditDelete          'not used in this example.

End Sub