[alma_fandi]

جرب الكود ) برنامجك ما اشتغل عندي *  

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

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


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


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

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


               For d As Integer = 1 To 12
                   MsExcel.Cells(j + 2, d).Value = dgvList.Rows(j).Cells(d - 1).Value
               Next
           Next

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