Export a flat BOM (part counts) from a SolidWorks assembly to CSV

Option Explicit

' Flat parts count for the active assembly -> CSV next to the assembly file.
' Counts every component at every level; suppressed components are skipped.
' Rows are keyed by file + configuration, so config variants count separately.

Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks

    Dim swModel As SldWorks.ModelDoc2
    Set swModel = swApp.ActiveDoc

    If swModel Is Nothing Then
        swApp.SendMsgToUser "Open an assembly first."
        Exit Sub
    End If
    If swModel.GetType <> swDocASSEMBLY Then
        swApp.SendMsgToUser "This macro runs on assemblies only."
        Exit Sub
    End If
    If swModel.GetPathName = "" Then
        swApp.SendMsgToUser "Save the assembly first (the CSV goes next to it)."
        Exit Sub
    End If

    Dim swAssy As SldWorks.AssemblyDoc
    Set swAssy = swModel
    swAssy.ResolveAllLightWeightComponents False   ' lightweight comps report nothing

    Dim counts As Object
    Set counts = CreateObject("Scripting.Dictionary")

    Dim vComps As Variant
    vComps = swAssy.GetComponents(False)           ' False = all levels, flattened

    Dim i As Long
    For i = 0 To UBound(vComps)
        Dim swComp As SldWorks.Component2
        Set swComp = vComps(i)
        If swComp.GetSuppression <> swComponentSuppressed Then
            Dim key As String
            key = swComp.GetPathName & "|" & swComp.ReferencedConfiguration
            counts(key) = counts(key) + 1
        End If
    Next i

    Dim csvPath As String
    csvPath = Left$(swModel.GetPathName, _
                    InStrRev(swModel.GetPathName, ".") - 1) & "_BOM.csv"

    Dim f As Integer
    f = FreeFile
    Open csvPath For Output As #f
    Print #f, "File,Configuration,Quantity"

    Dim k As Variant
    For Each k In counts.Keys
        Dim pieces() As String
        pieces = Split(k, "|")
        Dim baseName As String
        baseName = Mid$(pieces(0), InStrRev(pieces(0), "\") + 1)
        Print #f, baseName & "," & pieces(1) & "," & counts(k)
    Next k
    Close #f

    swApp.SendMsgToUser counts.Count & " unique part/config rows written to:" & _
        vbNewLine & csvPath
End Sub