CODE --> catvba

Sub CATMain()
    Dim Template As String
    Template = "C:\Users\xyz\Desktop\BOM.xls"  'modify this path
    Dim productDocument1 As ProductDocument
    Set productDocument1 = CATIA.ActiveDocument

    Dim product1 As Product
    Set product1 = productDocument1.Product

    Dim assemblyConvertor1 As AssemblyConvertor
    Set assemblyConvertor1 = product1.GetItem("BillOfMaterial")

    Dim arrayOfVariantOfBSTR1(4)
    arrayOfVariantOfBSTR1(0) = "Quantity"
    arrayOfVariantOfBSTR1(1) = "Part Number"
    arrayOfVariantOfBSTR1(2) = "Type"
    arrayOfVariantOfBSTR1(3) = "Nomenclature"
    arrayOfVariantOfBSTR1(4) = "Revision"
    Set assemblyConvertor1Variant = assemblyConvertor1
    assemblyConvertor1Variant.SetCurrentFormat arrayOfVariantOfBSTR1

    Dim arrayOfVariantOfBSTR2(1)
    arrayOfVariantOfBSTR2(0) = "Quantity"
    arrayOfVariantOfBSTR2(1) = "Part Number"
    Set assemblyConvertor1Variant = assemblyConvertor1
    assemblyConvertor1Variant.SetSecondaryFormat arrayOfVariantOfBSTR2
    assemblyConvertor1.[Print] "XLS", Template, product1
    
    MsgBox "Bom Exported Successfully"
    
    Dim FileSys
    Set FileSys = CATIA.FileSystem
    Dim xlApp
    Set xlApp = CreateObject("Excel.Application")
    Dim mydoc
    Set mydoc = xlApp.workbooks.Open(Template)
    
    Call Getweight
    
End Sub


Sub Getweight()
    Dim BOMExcel As Object
    
    On Error Resume Next
    
    'if Excel is already running, then get the Excel object
    Set BOMExcel = GetObject(, "Excel.Application")
    
    
    If Err.Number <> 0 Then
        'If Excel is not already running, then create a new session of Excel
        Set BOMExcel = CreateObject("Excel.Application")
        BOMExcel.Visible = True
    End If
    
    'add a new workbook
    BOMExcel.workbooks.Open ("C:\Users\Z0002829\Desktop\Steering Team Macro Support\WIP\BOM.xls")
    BOMExcel.Visible = True
    Set ws = BOMExcel.ActiveWorkbook.Sheets(1)
    
    ws.cells(4, 6).Value = "CAD Weight"
    With ws
        Set findrow = .Range("A:A").Find(What:="Recapitulation", LookIn:=xlValues) 
    End With
    
    
    FindRowNumber = findrow.Row
    
    For i = 1 To FindRowNumber - 1
            If ws.cells(i, 3).Value = "Part" Then
            
            PNtoSearch = ws.cells(i, 2).Value
            'measure weight
            Set productDocument1 = CATIA.ActiveDocument
            
            Set product1 = productDocument1.Product
            
            Dim oSelection As Selection
            
            Set oSelection = CATIA.ActiveDocument.Selection
            
            oSelection.Search "CATAsmSearch.Part.PartNumber=" & PNtoSearch & ",all"
            
             Dim objProd As Product
             
              Set objProd = CATIA.ActiveDocument.Selection.Item2(1).Value
              Set objInertia = GetProductInertiaa(objProd)
              If Not (objInertia Is Nothing) Then
                'Retrieve the mass just to show it worked
                'MsgBox objInertia.Mass
                ws.cells(i, 6).Value = objInertia.Mass * 1000
                
              Else
                MsgBox "The Inertia could not be retrieved!"
              End If
            End If
    Next i
    
    MsgBox "Weight Exported!"
    
    ws.SaveAs Filename:="BOM with Weight exproted.xlsx", FileFormat:=xlWorkbookDefault
    

End Sub

Function GetProductInertia(ByRef iProd As Product) As Inertia
 
  'If successful, this function will return an inertia object
  'Otherwise, Nothing is returned (you should check the return value)
 
  Dim objInertia As Inertia
 

  On Error Resume Next
 
  Set objInertia = iProd.ReferenceProduct.GetTechnologicalObject("Inertia")
  'Set ObjDensity = iProd.ReferenceProduct.GetTechnologicalObject("Density")
  If Err.Number = 0 Then
    Set GetProductInertia = objInertia
  Else
    Set GetProductInertia = Nothing
End If
 
End Function