[VB.NET] اريد كود لتصدير البيانات من DataGridView الى ملف Excel

اخواني و اخواتي في الله و اجهت الكثير من المشاكل لتصدير البيانات كما هو مذكور في العنوان حيث يوجد الكثير من الطرق لفعل ذالك لاكن يوجد الكثير من العيوب لكل منهم

حيث اريد السرعة في الحفظ , استخدام دالة لتنفيذ هذه الاوامر مع اخذ اسم الملف و اسم الورقة كمتغيرات تكتب عند استدعاء الدالة لاني ساستعمل هذا الكود في عدة اماكن ، اهم شيء احتاجه سرعة العمل و تقليل استهلاك الذاكرة قدر المستطاع , اخيرا مرونة تعديل الدالة لانسخ منها عدت دوال اخرى كل منهم تعمل اما على حفظ اعمدة فقط او اسطر فقط او خلايا محددة من اسطر محددة

كود :

Private Sub ExportToExcel()



    Dim ExcelApp As Object, ExcelBook As Object

    Dim ExcelSheet As Object

    Dim i As Integer

    Dim j As Integer



    'create object of excel

    ExcelApp = CreateObject("Excel.Application")

    ExcelBook = ExcelApp.WorkBooks.Add

    ExcelSheet = ExcelBook.WorkSheets(1)



    Dim rowIndex As Integer = 1

    Dim colIndex As Integer = 1



    ''For Headers  

    With ExcelSheet

        For Each column As DataGridViewColumn In Me.DataGridView1.Columns

            If column.Name = "Id" Then

                .cells(rowIndex, 1) = column.HeaderText

            Else



                .cells(rowIndex, colIndex) = column.HeaderText

                colIndex = colIndex + 1

            End If

        Next

    End With





    ''For Rows

    With ExcelSheet

        For i = 0 To Me.DataGridView1.RowCount - 1

            If Not IsNothing(Me.DataGridView1.Rows(i).Cells(0).Value) Then

                rowIndex = rowIndex + 1

                colIndex = 1





                For j = 0 To DataGridView1.Columns.Count - 1

                    If DataGridView1.Columns(j).Name = "Id" Then

                        .cells(rowIndex, 1) = DataGridView1.Rows(i).Cells(j).Value

                    Else

                        .cells(rowIndex, colIndex) = DataGridView1.Rows(i).Cells(j).Value

                        colIndex = colIndex + 1

                    End If

                Next

            End If

        Next

    End With



    ExcelApp.Visible = True

    '

    ExcelSheet = Nothing

    ExcelBook = Nothing

    ExcelApp = Nothing



    MsgBox("")



End Sub