Batch-export every configuration of a part to STEP (AP214)

Option Explicit

' Batch-export every configuration of the ACTIVE part/assembly to STEP (AP214).
' Edit FOLDER and PREFIX, then run main(). Each config gets its own file:
' <PREFIX><ConfigName>.step

Const FOLDER As String = "C:\STEP\"   ' must end with a backslash
Const PREFIX As String = ""             ' optional filename prefix

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 a part or assembly first."
        Exit Sub
    End If

    Dim vConfigNames As Variant
    vConfigNames = swModel.GetConfigurationNames

    Dim exported As Long, failed As Long
    Dim i As Long
    For i = 0 To UBound(vConfigNames)
        Dim configName As String
        configName = vConfigNames(i)

        ' ShowConfiguration2 makes this the active config before SaveAs
        If swModel.ShowConfiguration2(configName) Then
            Dim stepPath As String
            stepPath = FOLDER & PREFIX & configName & ".step"

            Dim errs As Long, warns As Long
            If swModel.Extension.SaveAs(stepPath, 0, 0, Nothing, errs, warns) Then
                exported = exported + 1
            Else
                failed = failed + 1
                Debug.Print "EXPORT FAILED: " & configName & " (error " & errs & ")"
            End If
        Else
            failed = failed + 1
            Debug.Print "COULD NOT ACTIVATE CONFIG: " & configName
        End If
    Next i

    swApp.SendMsgToUser exported & " STEP file(s) exported, " & failed & " failed." & _
        vbNewLine & "Failures (if any) are in the Immediate window (Ctrl+G)."
End Sub