Error when reading the array values

sampath meka

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 array,below 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(5,0) -> This throws error

Thanks & Regards,

Sampath

8 Replies

Know the answer? Post it — somebody with the same question will find it here.

sampath meka10y ago
Thanks ,but i am filling the data from excel to array,i have seen the below link it is not useful to me i am trying to find the solution.
0
Bhuvanesh Mohankumar10y ago
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.
0
sampath meka10y ago
Everything is fine mohan ExcelRangeArray contains all the values but i am not able to assign/read the values thrrows error
0
Bhuvanesh Mohankumar10y ago
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.
0
sampath meka10y ago
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:\test1.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
0
Bhuvanesh Mohankumar10y ago
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(0,0)
}
also check this code returns proper values "objApp.Sheets("Sheet1").Range("A4:A14").Value"
0
sampath meka10y ago
Thanks for your reply ...
Yes it throws error
0
Bhuvanesh Mohankumar10y ago
I have a doubt here sampath,
can you say is this value also throw error?
arValue = ExcelRangeArray(0,0)
0