Error when reading the array values

Question

Hello All Actually i was filling the array with the range then i am not able to ready array items when trying to read its throws error Index was outside the bounds of the arraybelow is my code .Please help me . Dim ExcelRangeArray(14 0)arValue ExcelRangeArray = objApp.Sheets(Sheet1).Range(A4:A14).Value Here ExcelRangeArray contains all the data from a1 to a 14 but not able to read the values arValue =ExcelRangeArray(50) -> This throws error Thanks & Regards Sampath

sampath meka · Answer

Thanks but i am filling the data from excel to arrayi have seen the below link it is not useful to me i am trying to find the solution.

Bhuvanesh Mohankumar · Answer

Idon't have option to debug your code Can you check this link where when you readcontent from a file to an array itthrows some error [ Index was outside the bounds of the array .]. This is similar to your issue and this is resolved in the following site please let me know is that was helpful. http://stackoverflow.com/questions/16737938/copying-data-from-text-file-to-array They suggested to read data as the following sample: Dim vstring() as String Dim vFileName As String = C:\Bhuvan\student.txt If Txt_IdNumber.Text.Length = 5 Then Using rvSR As New IO.StreamReader(vFileName) vstring = rvSR.ReadLines().Select(Function(s) s.Split(c)(0)).ToArray() End Using End If Hope this may be helpful to you.

sampath meka · Answer

Everything is fine mohan ExcelRangeArray contains all the values but i am not able to assign/read the values thrrows error

Bhuvanesh Mohankumar · Answer

Is that declaration of array is fine I am unable to test here and not sure about the code Example: Dim strData () As String Is that should be Dim ExcelRangeArray(14 0) As String or Dim ExcelRangeArray(14 0) alone is fine? Can you check is that ExcelRangeArray array is NULL or holding value. I hope the ExcelRangeArray array may be null i.e. has the no data in it.

sampath meka · Answer

The array does not contains any null values mohan still i have that error i will share my code same code i have attached for your reference ''' Code 'This code in button event Dim objApp As Excel.Application Dim objBook As Excel._Workbook Dim objBooks As Excel.Workbooks Dim objSheets As Excel.Sheets Dim objSheet As Excel._Worksheet Dim Rng As Excel.Range objApp = New Excel.Application() objBook = objApp.Workbooks.Open(c:	est1.xlsx) objSheet = objBook.Worksheets(sheet1) Dim Array(11 0) arrValue arrValue1 Array(0 0) = Hello Array(1 0) = World Array(2 0) = hi Array(3 0) = 2 Array(4 0) = 3 Array(5 0) = 4 Array(6 0) = 5 Array(7 0) = 6 Array(8 0) = 7 Array(9 0) = 8 Array(10 0) = 9 objSheet.Range(A1:A11).Value = Array objBook.Save() Dim ExcelRangeArray(14 0) ExcelRangeArray = objApp.Sheets(Sheet2).Range(A1:A10).Value For ij = 0 To 5 arrValue1 = ExcelRangeArray(0 0) Next arrValue1 = ExcelRangeArray(0 0) objBook.Close() objApp.Quit() releaseObject(objApp) releaseObject(objBook) releaseObject(objSheet) 'This code in button event Private Sub releaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub  code

Bhuvanesh Mohankumar · Answer

ExcelRangeArray = objApp.Sheets(Sheet1).Range(A4:A14).Value Do a null check ofExcelRangeArray I believe the value is not assigned to array at all. make a if condition to check Null thenget the array value. If ( Not (ExcelRangeArray Is DBNull . Value ) { arValue = ExcelRangeArray(00) } also check this code returns proper values objApp.Sheets(Sheet1).Range(A4:A14).Value

sampath meka · Answer

Thanks for your reply ... Yes it throws error

Bhuvanesh Mohankumar · Answer

I have a doubt here sampath can you say is this value also throw error? arValue = ExcelRangeArray(00)