[hosamloveme888@yahoo.com]

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

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

السلام عليكم...
هذا كود التصدير من الداتا الي الاكسيل.

كود :

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


           For i As Integer = 0 To 7
               'عدد سطور الداتا جريد 12
               'بدات القيمه من  صفر
               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 = 14


               For d As Integer = 1 To 8
                   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

[asemshahen5]

تصدير DataGridView الى xls