[اسامه الهرماوي]

السلام عليكم...
هذا الكود لم يتسبب معي في اي مشكلة من قبل،
تفضل:

كود :

 If datagridview1.Rows.Count = 0 Then Exit Sub
       'datagridview1 اسم الداتا جريد
       Try
           Dim MsExcel = CreateObject("Excel.Application")
           MsExcel.Workbooks.Add()


           For i As Integer = 0 To 4
               'عدد سطور الداتا جريد 5
               'بدات القيمه من  صفر
               MsExcel.Cells(i + 1).Value = datagridview1.Columns(i).HeaderText
           Next


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

               MsExcel.Columns.HorizontalAlignment = 3
               MsExcel.Cells(j + 1).ColumnWidth = 24

               'عدد سطور الداتا جريد 5
               'بدات القيمه من  1
               For d As Integer = 1 To 5
                   MsExcel.Cells(j + 2, d).Value = datagridview1.Rows(j).Cells(d - 1).Value
               Next
           Next

           MsExcel.Visible = True
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try