+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل (/showthread.php?tid=30489)
السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل - hosamloveme888@yahoo.com - 24-07-19
السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل بشرط ان يتم الحفظ علي الكمبيوتر مباشرة في المكان الذي احدده في الكود ويكون اسم فايل الاكسل هو تاني خليه في الداتا قريد وكل اسم يحفظ في فايل فريد
RE: السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل - اسامه الهرماوي - 24-07-19
السلام عليكم...
هذا كود التصدير من الداتا الي الاكسيل.
كود :
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 TryRE: السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل - asemshahen5 - 24-07-19
تصدير DataGridView الى xls