Update Model States Via Spreadsheet

[ndillner343SKL]

Hello - 

I'm use to updating iParts using the following code. But model states work differently. Therefore, I'm running into issues with it and I'm not familiar enough with model states to know how to fix it. My main question is how to access the excel spreadsheet of model states to update them? I would greatly appreciate any sort of help with this. Thank you!

Sub Main()
	oDef = ThisApplication.ActiveEditDocument.ComponentDefinition
	
	Dim oFactory As iPartFactory
	oFactory = oDef.iPartFactory
	
	Dim oWorkSheet
	oWorkSheet = oFactory.ExcelWorkSheet
	
	Dim oWB
	oWB = oWorkSheet.Parent
	
	Dim oCells
	oCells = oWorkSheet.Cells

	oWB.Save
	oWB.Close
End Sub

[dalton98 · Accepted solution]

This might be it?

Dim oDoc As AssemblyDocument
oDoc = ThisApplication.ActiveDocument

Dim oCompDef As AssemblyComponentDefinition
oCompDef = oDoc.ComponentDefinition


oWorkSheet = oCompDef.ModelStates.ExcelWorkSheet