تصدير داتا قريد إلى الأكسل بدون مكتبات

السلام وعليكم ورحمة الله وبركاته

أساتذتي وإخواني

وجدت كوداً بسيطاً وسهلاً للتصدير من الداتا قريد إلى الإكسل ( ولا يحتاج مكتبات ولا ملفات ) فعدلت فيه قليلاً ليتميز صف العنوان عن غيره .. فقلت أضعه هنا ليستفيد منه من هو مثلي .. ويلاحظ عليه ويطوره أساتذتي هنا ...   ومما أريده في التطوير مثلاً : جعل خلفية خلايا العنوان مظللة باللون الرمادي ... 

وهذا هو الكود

        Try


            Dim MsExcel = CreateObject("Excel.Application")


            MsExcel.Workbooks.Add()


            For i As Integer = 0 To DataGridView1.Columns.Count - 1

                MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
                MsExcel.cells(i + 1).Font.Bold = 1
                MsExcel.cells(i + 1).Font.size = 12
' هذا عملته وما اشتغل  وعملته : color فقط ما اشتغل 
                'MsExcel.cells(i + 1).cells.backcolor = Color.Red

            Next


            For i As Integer = 0 To DataGridView1.Columns.Count - 1


                For j As Integer = 0 To DataGridView1.Rows.Count - 1


                    MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value


                Next


            Next


            MsExcel.Visible = True


        Catch ex As Exception


            MsgBox(ex.Message)


        End Try