تصدير بيانات datagridview الى ايكسيل باستخدام فيجوال ستوديو 2005

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim oExcel As Object

        Dim oBook As Object

        Dim oSheet As Object



        oExcel = CreateObject("Excel.Application")

        oBook = oExcel.Workbooks.Add



        oSheet = oBook.Worksheets(1)



        oSheet.Range("A1").Value = "Last Name"

        oSheet.Range("B1").Value = "Middle Name"

        oSheet.Range("C1").Value = "First Name"

        ' بحسب عدد الأعمدة تضع هنا أمر بتعبئة خلايا الاكسس D >> E >> F



        oSheet.Range("A1:C1").Font.Bold = True

        ' بحسب عدد الأعمدة تضع هنا أمر بتعديل الخط لـ خلايا الاكسس D >> E >> F



        For i = 0 To DataGridView1.Rows.Count - 2

            oSheet.Range("A" & Val(i + 2)).Value = DataGridView1.Rows(i).Cells(0).Value

            oSheet.Range("B" & Val(i + 2)).Value = DataGridView1.Rows(i).Cells(1).Value

            oSheet.Range("C" & Val(i + 2)).Value = DataGridView1.Rows(i).Cells(2).Value

            ' بحسب عدد الأعمدة تضع هنا أمر بتعبئة خلايا الاكسس D >> E >> F

        Next i

        oBook.SaveAs("C:\Book1.xls")

        oExcel.Quit



    End Sub