Anonymous
in reply to:
Anonymous
10-20-2017
01:53 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-20-2017
01:53 PM
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