Вывод данных из DataGridView1 и DataGridView2 в Excel - Visual Basic .NET

  Const sPath As String = "C:\TMP\razbivka.xlsx"
                Dim sArr(2, 0) As String
                Dim i As Integer, j As Integer, k As Integer, iCount As Integer
                Dim iNum As Integer
                Dim sTmpArr(Me.DataGridView1.Rows.Count - 2) As Integer
 
                Dim oExcel As Object 'MSExcel
                Dim oBook As Object 'Книга MSExcel
                Dim oSheet As Object 'Лист книга MSExcel

                oExcel = CreateObject("Excel.Application")
                oBook = oExcel.Workbooks.Add
                oExcel.Visible = True

                For i = 0 To UBound(sTmpArr) 'собираем все значения (№) в одномерный массив
                    sTmpArr(i) = Me.DataGridView1.Item(2, i).Value
                Next i
 
                Array.Sort(sTmpArr) 'сортируем массив 
 
                For i = 0 To UBound(sTmpArr)
                    ReDim sArr(2, 0)
                    iCount = 0
                    If iNum <> sTmpArr(i) Then
                        iNum = sTmpArr(i)
                        Try 'если пустого листа нет, создаем его
                            oSheet = oBook.Worksheets(iNum)
                        Catch ex As Exception
                            oSheet = oBook.Worksheets.Add
                        End Try
                        oSheet.Cells.NumberFormat = "@"
                        For j = 0 To Me.DataGridView1.Rows.Count - 2 'цикл по строкам
                            If iNum = Me.DataGridView1.Item(2, j).Value Then
                                ReDim Preserve sArr(2, iCount)
                                For k = 0 To 2 'цикл по столбцам
                                    sArr(k, iCount) = Me.DataGridView1.Item(k, j).Value.ToString 'сбор данных в двумерный массив результатов
                                Next k
                                iCount += 1
                            End If
                        Next j
                        oSheet.Range("A1").Resize(iCount, 3).Value = oExcel.Transpose(sArr) 'транспонирование массива
                        oSheet.Name = iNum.ToString 'изменения имени листа
                    Else
                        Continue For
                    End If
                Next i
 
                If IO.File.Exists(sPath) Then 'проверяем существет ли уже файл, если да, то пытаемся его удалить
                    Try
                        IO.File.Delete(sPath)
                    Catch ex As Exception
                        MsgBox("Невозможно удалить файл " & sPath & ", ошибка: " & ex.Message, MsgBoxStyle.Critical, "Ошибка")
                    End Try
                End If
 
                Try 'пытаемся сохранить файл
                    oBook.SaveAs(sPath)
                Catch ex As Exception
                    MsgBox("Невозможно сохранить файл " & sPath & ", ошибка: " & ex.Message, MsgBoxStyle.Critical, "Ошибка")
                End Try
                oSheet = Nothing
                oBook = Nothing
                oExcel = Nothing