index was out of range. must be nonnegative and less than the size of the collection

Question

1.00/5 (1 vote)

See more:

Guys need your help I get this Error "Index was out of range. Must be non negative and less than the size of the collection. Parameter name; Index." Please help me Im a newbie T____T

Here's the code of mine :

VB

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
            Cursor = Cursors.WaitCursor
            Dim objExcel As New Excel.Application
            Dim bkWorkBook As Workbook
            Dim shWorkSheet As Worksheet
            Dim i As Integer
            Dim j As Integer
            objExcel = New Excel.Application
            bkWorkBook = objExcel.Workbooks.Add
            shWorkSheet = CType(bkWorkBook.ActiveSheet, Worksheet)

            shWorkSheet.Cells(1, 1) = "ACTIVITY LOGS"
            shWorkSheet.Cells(1, 1).EntireRow.Font.Bold = True
            shWorkSheet.Cells(1, 1).EntireRow.Font.size += 5
            shWorkSheet.Range("A1", "E1").MergeCells = True

            For i = 0 To Me.ListView1.Columns.Count - 1
                shWorkSheet.Cells(3, i + 1) = UCase(Me.ListView1.Columns(i).Text)
                shWorkSheet.Cells(3, i + 1).EntireRow.Font.Bold = True
            Next
            For i = 0 To Me.ListView1.Items.Count - 1
                For j = 0 To Me.ListView1.Items(i).SubItems.Count - 1
                    shWorkSheet.Cells((i + 2) + 2, j + 1) = Me.ListView1.Items(i).SubItems(j).Text
                Next
            Next

            shWorkSheet.Cells((i + 2) + 4, 1) = UCase("Prepared by: " & MainMDi.StatusStrip.Items(2).Text)
            shWorkSheet.Cells((i + 2) + 4, 1).EntireRow.Font.Bold = True

            objExcel.Visible = True
            'EventLog("Export to Excel", "Activity Logs", "Extraction of data from: " & DTP1.Value & " to " & DTP2.Value & ".")
            'For Each p As Process In Process.GetProcesses
            '    If p.ProcessName = "Excel" Then
            '        p.Kill()
            '    End If
            'Next
            Cursor = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub

Posted 25-Sep-13 21:52pm

ChiPats

Updated 25-Sep-13 21:56pm

v2

Add a Solution

Comments

ArunRajendra 26-Sep-13 3:53am

Which line are you getting this error?

ChiPats 26-Sep-13 3:57am

At the button Click T_T

ArunRajendra 26-Sep-13 3:59am

Yes I know this is the click event. In which within the event your getting the error.

Thanks7872 26-Sep-13 4:01am

:laugh:

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CPallini · Answer 1 · 2013-09-25T22:27:00

To progress towards a more skilled kind of developer, the newbie should learn how to read (and report) error messages (and use the debugger). In your code there are several indexed objects, each of them could have thrown such an exception. Please read carefully the error message, and, if you are really unable to cope with it, report its exact content here.

ledtech3 · Answer 2 · 2013-09-25T23:08:00

Solution 2

Try removing the -1's
if the count is zero then you subtract 1 then it will be -1, a negitive number.

Posted 25-Sep-13 23:08pm

ledtech3

Thomas Barbare · Answer 3 · 2013-09-25T23:26:00

You should test your vars before iterating, ex :

VB

If Me.ListView1.Columns.Count>0 Then
            For i = 0 To Me.ListView1.Columns.Count - 1
                shWorkSheet.Cells(3, i + 1) = UCase(Me.ListView1.Columns(i).Text)
                shWorkSheet.Cells(3, i + 1).EntireRow.Font.Bold = True
            Next
Else
' do something
End If

index was out of range. must be nonnegative and less than the size of the collection

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0