Быстрая выгрузка из DataGridView1 в Excel - Visual Basic .NET

For i = 0 To DataGridView1.RowCount - 2
            For j = 0 To DataGridView1.ColumnCount - 1
               xlSht.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
            Next
Next

myArray() = Range("A1:D100").Value

Range("A1").Resize(Ubound(myArray,1), Ubound(myArray,2)).Value = myArray()

For i=1 to 100 
 Cells(i,1) = myArray(i,1)
Next i

Range("A1").Resize(Ubound(myArray,1), Ubound(myArray,2)).Value = myArray()

Dim iPath As String = "F:\VB.NET TEST\Test file.xlsx"
    Dim iShtName As String = "Лист1"
Dim connectionString As String
        Dim connection As OleDb.OleDbConnection
 
        Try
            'Для Excel 12.0
            connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + iPath + "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
            connection = New OleDb.OleDbConnection(connectionString)
            connection.Open()
        Catch ex12 As Exception
            Try
                'Для более ранних версий
                connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + iPath + "; Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
                connection = New OleDb.OleDbConnection(connectionString)
                connection.Open()
            Catch ex11 As Exception
                MsgBox("Не знаю такой версии Excel")
                ' Return 0
            End Try
        End Try
        'Выборка данных
        Dim command As OleDb.OleDbCommand = connection.CreateCommand()
        'command.CommandText = "Select * From [Лист1$]"
        'command.CommandText = "Select * From [Лист1$A1:Z100]"
        command.CommandText = "Select * From [Лист1$]"
        Dim da As New OleDb.OleDbDataAdapter(command)
        Dim dt As New Data.DataTable
        da.Fill(dt)
 
        With Me.DataGridView1
            .AutoGenerateColumns = True
             .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
            .BorderStyle = BorderStyle.Fixed3D
            .EditMode = DataGridViewEditMode.EditOnEnter
            .DataSource = dt
        End With
 
        connection.Close()

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'сохранить данные
        SaveData(iFileFullName, "Лист2") 'адрес и имя книги Excel и имя листа, куда сохранить
    End Sub

Private Sub SaveData(iPath As String, iShtName As String)
        'сохранить данные
 
        Dim ds As New System.Data.DataSet
        ds.Tables.Add()
        Dim dt As System.Data.DataTable = ds.Tables(0)
        Dim dc As System.Data.DataColumn
        Dim dr As System.Data.DataRow
        Dim colIndex As Integer = 0
        Dim rowIndex As Integer = 0
 
        'verfying the datagridview having data or not
        If ((DataGridView1.Columns.Count = 0) Or (DataGridView1.Rows.Count = 0)) Then
            MessageBox.Show("Нет данных для сохранения!", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
 
        'add columns to that table
        For i As Integer = 0 To DataGridView1.ColumnCount - 1
            ds.Tables(0).Columns.Add(DataGridView1.Columns(i).HeaderText)
        Next
 
        'add rows to the table
        For i As Integer = 0 To DataGridView1.RowCount - 1
            dr = ds.Tables(0).NewRow
            For j As Integer = 0 To DataGridView1.Columns.Count - 1
                dr(j) = DataGridView1.Rows(i).Cells(j).Value
            Next
            ds.Tables(0).Rows.Add(dr)
        Next
 
        'массив для данных
        Dim myArr(dt.Rows.Count + 1, dt.Columns.Count) As Object
 
        'заголовок
        For Each dc In dt.Columns
            myArr(0, colIndex) = dc.ColumnName
            colIndex = colIndex + 1
        Next
 
        'данные
        For Each dr In dt.Rows
            colIndex = 0
            For Each dc In dt.Columns
                myArr(rowIndex + 1, colIndex) = dr(dc.ColumnName)
                colIndex = colIndex + 1
            Next
            rowIndex = rowIndex + 1
        Next
 
        'Excel
        xlApp = New Application
        xlWB = xlApp.Workbooks.Open(iPath)
        xlSht = xlWB.Worksheets(iShtName)
 
        xlSht.Cells.Clear()
        xlSht.Range("A1").Resize(UBound(myArr, 1), UBound(myArr, 2)).Value2 = myArr
 
        'украшательства
        xlSht.UsedRange.Columns.AutoFit()
 
        xlWB.Close(SaveChanges:=True)
        xlApp.Quit()
 
        ReleaseObject(xlSht)
        ReleaseObject(xlWB)
        ReleaseObject(xlApp)
 
        MessageBox.Show("Данные сохранены!", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub