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

I logic code in Inventor 2019 no longer working after update 2019.1

I was using this code to export parameters to Excel and then repopulate multi value list back from the excel spread sheet, and after the update the code would no longer export anything, and the parameter which contained the multi value list changed back into a normal parameter without a multi value list and without all of the other variables in the list. Once i rolled back the update everything worked fine. 

 

SyntaxEditor Code Snippet

Dim Counter As Integer = 0
Dim TheValue As String = ""

GoExcel.Open(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1")
GoExcel.FindRow(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "COMPLETE_SPEC_CODE", "=", COMPLETE_SPEC_CODE)
COMPLETE_SPEC_CODE_LIST = COMPLETE_SPEC_CODE

If GoExcel.CurrentRowValue ("COMPLETE_SPEC_CODE") = COMPLETE_SPEC_CODE Then
MessageBox.Show("This spec code is already in use", "Spec code conflict")
Else
	While Counter <> 10000
	Counter = Counter + 1
		If GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "A" & Counter) = "" Then
		GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "A" & Counter) = COMPLETE_SPEC_CODE
		GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "B" & Counter) = KVA
		GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "C" & Counter) = LV
		GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "D" & Counter) = HV_KV_BIL
		GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "CG" & Counter) = DOUBLE_CLF_FUSE
		Counter = 10000
		End If
	End While
End If

MultiValue.List("COMPLETE_SPEC_CODE_LIST") = GoExcel.CellValues(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "A2", "A10000")

GoExcel.Save
GoExcel.Close