منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
ارجوا مساعدتي في تصدير البيانات   من 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

والسلام عليكم ورحمة الله

(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
=====================================================

(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
=====================================================

شكرا اخي الكريم
قمت بتجربت الكود  ولكن نفس النتيجة السابقة  
ولم يظهر الرقم بكامل خانته