Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Anonymous

Here's something from here: http://beinginventive.typepad.com/files/ExportPartslistToExcel/ExportPartslistToExcel.txt

 

let me know if it works, I'm trying to get something similar happening.

'Expand legacy parts list to all levels
    Dim counter As Integer
    Dim k As Long
    counter = 1
    While counter < partList.PartsListRows.Count
        For k = counter To partList.PartsListRows.Count
        Dim orow As PartsListRow
        Set orow = partList.PartsListRows.Item(k)
        counter = k
        While orow.Expandable And Not (orow.Expanded)
            orow.Expanded = True
            counter = counter + 1
        Wend
        Next k
    Wend