+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عند تصدير البيانات من DataGridView1 لملف Excel (/showthread.php?tid=44610)
عند تصدير البيانات من DataGridView1 لملف Excel - MOHAMMED ALZWI - 21-12-22
السلام عليكم
ارجوا مساعدتي في تصدير البيانات من DataGridView1 لملف Excel
الكود المستخدم :
===========================================================
Try
Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Add()
For i As Integer = 0 To DataGridView1.Columns.Count - 1
MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
Next
For i As Integer = 0 To DataGridView1.Columns.Count - 1
For j As Integer = 0 To DataGridView1.Rows.Count - 1
MsExcel.Columns.HorizontalAlignment = 3
MsExcel.Columns.Font.Name = "Times New Roman"
MsExcel.Rows.Item(j + 1).Font.Bold = 1
MsExcel.Rows.Item(j + 1).Font.size = 14
MsExcel.Cells(j + 1).ColumnWidth = 14
MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value.ToString
Next
Next
MsExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
=====================================================
عند التصدير للاكسيل تظهر اول عمود وهو (الرقم) بهذا الشكل 1.00023E+13
والشكل الصحيح هو 010002257640016
والسلام عليكم ورحمة الله
RE: عند تصدير البيانات من DataGridView1 لملف Excel - gho - 22-12-22
(21-12-22, 09:52 PM)MOHAMMED ALZWI كتب : السلام عليكم
ارجوا مساعدتي في تصدير البيانات من DataGridView1 لملف Excel
الكود المستخدم :
===========================================================
Try
Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Add()
For i As Integer = 0 To DataGridView1.Columns.Count - 1
MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
Next
For i As Integer = 0 To DataGridView1.Columns.Count - 1
For j As Integer = 0 To DataGridView1.Rows.Count - 1
MsExcel.Columns.HorizontalAlignment = 3
MsExcel.Columns.Font.Name = "Times New Roman"
MsExcel.Rows.Item(j + 1).Font.Bold = 1
MsExcel.Rows.Item(j + 1).Font.size = 14
MsExcel.Cells(j + 1).ColumnWidth = 14
MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value.ToString
Next
Next
MsExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
=====================================================
عند التصدير للاكسيل تظهر اول عمود وهو (الرقم) بهذا الشكل 1.00023E+13
والشكل الصحيح هو 010002257640016
والسلام عليكم ورحمة الله
===========================================================
Try
Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Add()
For i As Integer = 0 To DataGridView1.Columns.Count - 1
MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
Next
For i As Integer = 0 To DataGridView1.Columns.Count - 1
For j As Integer = 0 To DataGridView1.Rows.Count - 1
MsExcel.Columns.HorizontalAlignment = 3
MsExcel.Columns.Font.Name = "Times New Roman"
MsExcel.Rows.Item(j + 1).Font.Bold = 1
MsExcel.Rows.Item(j + 1).Font.size = 14
MsExcel.Cells(j + 1).ColumnWidth = 14
MsExcel.Cells(j + 1).NumberFormat = "@"
MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value.ToString
Next
Next
MsExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
=====================================================
RE: عند تصدير البيانات من DataGridView1 لملف Excel - MOHAMMED ALZWI - 22-12-22
(22-12-22, 08:16 AM)gho كتب :(21-12-22, 09:52 PM)MOHAMMED ALZWI كتب : السلام عليكم
ارجوا مساعدتي في تصدير البيانات من DataGridView1 لملف Excel
الكود المستخدم :
===========================================================
Try
Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Add()
For i As Integer = 0 To DataGridView1.Columns.Count - 1
MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
Next
For i As Integer = 0 To DataGridView1.Columns.Count - 1
For j As Integer = 0 To DataGridView1.Rows.Count - 1
MsExcel.Columns.HorizontalAlignment = 3
MsExcel.Columns.Font.Name = "Times New Roman"
MsExcel.Rows.Item(j + 1).Font.Bold = 1
MsExcel.Rows.Item(j + 1).Font.size = 14
MsExcel.Cells(j + 1).ColumnWidth = 14
MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value.ToString
Next
Next
MsExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
=====================================================
عند التصدير للاكسيل تظهر اول عمود وهو (الرقم) بهذا الشكل 1.00023E+13
والشكل الصحيح هو 010002257640016
والسلام عليكم ورحمة الله
===========================================================
Try
Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Add()
For i As Integer = 0 To DataGridView1.Columns.Count - 1
MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
Next
For i As Integer = 0 To DataGridView1.Columns.Count - 1
For j As Integer = 0 To DataGridView1.Rows.Count - 1
MsExcel.Columns.HorizontalAlignment = 3
MsExcel.Columns.Font.Name = "Times New Roman"
MsExcel.Rows.Item(j + 1).Font.Bold = 1
MsExcel.Rows.Item(j + 1).Font.size = 14
MsExcel.Cells(j + 1).ColumnWidth = 14
MsExcel.Cells(j + 1).NumberFormat = "@"
MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value.ToString
Next
Next
MsExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
=====================================================
شكرا اخي الكريم
قمت بتجربت الكود ولكن نفس النتيجة السابقة
ولم يظهر الرقم بكامل خانته