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

hi @idealogicERZYZ 

See code below :slightly_smiling_face:

bRows = oBOMView.BOMRows
For Each bRow In bRows

	Dim rDoc As Document
	rDoc = bRow.ComponentDefinitions.Item(1).Document
	
	Dim docPropertySet As PropertySet
	docPropertySet = rDoc.PropertySets.Item("Design Tracking Properties")

	xlWorksheet.Range("A" & Row).Value = bRow.ItemNumber
	xlWorksheet.Range("C" & Row).Value = docPropertySet.Item("Part Number").Value
	xlWorksheet.Range("D" & Row).Value = docPropertySet.Item("Description").Value
	xlWorksheet.Range("E" & Row).Value = bRow.ItemQuantity
	xlWorksheet.Range("F" & Row).Value = docPropertySet.Item("Vendor").Value
	xlWorksheet.Range("P" & Row).Value = docPropertySet.Item("Cost").Value
	
	'----------------------------Here is what you need-------------------------------------------
	Dim customPropSet As PropertySet
	customPropSet = rDoc.PropertySets.Item("Inventor User Defined Properties")
	'xlWorksheet.Range("Q" & Row).Value = customPropSet.Item("Welding").Value 'If you want True/False
	xlWorksheet.Range("Q" & Row).Value = customPropSet.Item("Welding").Expression 'If you want Yes/No
	'-----------------------------------------------------------------------
Next