I am currently trying to make macro which could filter my bom table, but it keeps getting error messages. The goal is to delete all rows which contains text "No" in 9 column, could anyone help me with this?
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc
Dim swSelMgr As SldWorks.SelectionMgr
Dim swView As SldWorks.View
Dim swBomTable As SldWorks.BomTableAnnotation
Dim i As Integer
Dim swTableAnn As SldWorks.TableAnnotation
Dim nNumRow As Variant
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swBomTable = swSelMgr.GetSelectedObject5(1)
Set swTableAnn = swBomTable
For i = swTableAnn.RowCount - 1 To 0 Step -1
nNumRow = swBomTable.GetIdForRowNumber(i)
If nNumRow(i, 9) = "No" Then
swBomTable.Deleterow (nNumRow), True
End If
Next i
End Sub