Error in rule

[GosponZ]

I do have in Exel only one column with few Client names, and i have this rule. Guys i need you help to help me understand why this warning is up and after continue  rule is working correct. What i need to fix? Thanks

myXLSX = "C:\Customer.xlsx"

GoExcel.Open(myXLSX)

ForrowNumber = 2 To 1000

If (GoExcel.CellValue("A"&rowNumber) = (""))Then

lastUsedRow = rowNumber- 1

EndIf

Next

'set the list to be read from the XLS file

DimmyArrayListAsNewArrayList

i = 2

'add the values from the Excel file to an array list

DoUntili = lastUsedRow+1

myArrayList.add(GoExcel.CellValue("A"&i))

i = i+ 1

Loop

'present the list to the user

myCust1 = InputListBox("Select Customer from list", myArrayList,myArrayList.Item(0), "iLogic", "Customer")

'set the iProperty

iProperties.Value("Summary", "Company") = myCust1

[rossano_praderi · Accepted solution]

Hi, I've made few modifications to your code and now run without errors.

'myXLSX = "C:\Customer.xlsx"
GoExcel.Open("C:\Customer.xlsx", "Sheet1")
lastUsedRow = 2
'set the list to be read from the XLS file
Dim myArrayList As New ArrayList
'add the values from the Excel file to an array list
While GoExcel.CellValue("A" & lastUsedRow) <> ""
		myarraylist.add(GoExcel.CellValue("A" & lastUsedRow))
	lastUsedRow = lastUsedRow + 1
End While

'present the list to the user
myCust1 = InputListBox("Select Customer from list", myArrayList, myArrayList, Title := "iLogic", ListName := "Customer")

'set the iProperty
iProperties.Value("Summary", "Company") = myCust1

Bregs

Rossano Praderi

[GosponZ]

Hi,

thank you and  indeed working well.