24-07-19, 11:24 AM
السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل بشرط ان يتم الحفظ علي الكمبيوتر مباشرة في المكان الذي احدده في الكود ويكون اسم فايل الاكسل هو تاني خليه في الداتا قريد وكل اسم يحفظ في فايل فريد
24-07-19, 11:24 AM
24-07-19, 01:29 PM
السلام عليكم...
هذا كود التصدير من الداتا الي الاكسيل.
هذا كود التصدير من الداتا الي الاكسيل.
كود :
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 Try24-07-19, 01:40 PM