Hello Martin,
I tried to use the code created by you, it works ok except the last part "Sub Add_Config_Param_Values".
I not understand why not complete the "Actual Value" with values from excel.
Do not understand why not access the last part of the code "
Do While Trim(obj_ExcelTestConfigFile.ActiveSheet.Cells(parm_RowCount, int_Index).Value) <> ""
str_ParameterName = Trim(obj_ExcelTestConfigFile.ActiveSheet.Cells(parm_RowCount, int_Index).Value)
str_ActualValue = Trim(obj_ExcelTestConfigFile.ActiveSheet.Cells(parm_RowCount, int_Index + 1).Value)
If str_ParameterName = obj_ConfigParmValueItem.Name Then
bool_ParmFound = True
Exit Do
End If
int_Index = int_Index + 2
Loop
If bool_ParmFound Then
obj_ConfigParmValueItem.ActualValue = str_ActualValue
obj_ConfigParmValueItem.Post
End If
Next
End If
"
Please can you help me?
Thanks !
I tried to use the code created by you, it works ok except the last part "Sub Add_Config_Param_Values".
I not understand why not complete the "Actual Value" with values from excel.
Do not understand why not access the last part of the code "
Do While Trim(obj_ExcelTestConfigFile.ActiveSheet.Cells(parm_RowCount, int_Index).Value) <> ""
str_ParameterName = Trim(obj_ExcelTestConfigFile.ActiveSheet.Cells(parm_RowCount, int_Index).Value)
str_ActualValue = Trim(obj_ExcelTestConfigFile.ActiveSheet.Cells(parm_RowCount, int_Index + 1).Value)
If str_ParameterName = obj_ConfigParmValueItem.Name Then
bool_ParmFound = True
Exit Do
End If
int_Index = int_Index + 2
Loop
If bool_ParmFound Then
obj_ConfigParmValueItem.ActualValue = str_ActualValue
obj_ConfigParmValueItem.Post
End If
Next
End If
"
Please can you help me?
Thanks !