Hello everyone,
I have made following code,
I don't success to store to following arrays: Dim UserNameArr(),Dim PwdArr()
Could someone help me out?
Thank you in advance
I have made following code,
Code:
Dim UserNameArr()
Dim PwdArr()
Public sub ExcelDataToArr()
TestData=Environment.value("TestPath")&"Testdata\DB.xlsx"
Datatable.Importsheet (TestData),"TestDataDB",1
intRowcount=DataTable.GetSheet(1).GetRowCount
For iLoop = 1 To intRowcount
DataTable.GetSheet(1).SetCurrentRow iLoop
If not DataTable.value("UserName") = "" Then
Username= (DataTable.value("UserName",1))
' MsgBox(Username)
'Store into an array
ReDim UserNameArr()
UserNameArr(iLoop)=Username
End If
If not DataTable.value("Password") = "" Then
Password= (DataTable.value("Password",1))
' MsgBox(0)
'Store into an array
End If
Next
End Sub
I don't success to store to following arrays: Dim UserNameArr(),Dim PwdArr()
Could someone help me out?
Thank you in advance