(01-04-15, 10:13 PM)الدريساوي كتب : السلام عليكم 
محتاج كود تصدير بعض الاعمدة من DataGridView الى الاكسيل 
فقط بعض الاعمدة 
جزاكم الله خير جزاء 

(01-04-15, 10:43 PM)الدريساوي كتب : جزاك الله خير جزاء [b]Dr.Sherif Alazizi[/b]
على سبيل مثال عندي 10 اعمدة  واحتاج تصدير فقط العمود /8/2/4/5/7 فقط 
مشكور اخي على هذا الكود 

(01-04-15, 10:26 PM)جزاك الله خيرا كتب :

(01-04-15, 10:13 PM)الدريساوي كتب : السلام عليكم 
محتاج كود تصدير بعض الاعمدة من DataGridView الى الاكسيل 
فقط بعض الاعمدة 
جزاكم الله خير جزاء 

PHP كود :

Try
            Dim MsExcel = CreateObject("Excel.Application")
            MsExcel.Workbooks.Add()
            For i As Integer = 0 To 4
                MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
            Next
            For i As Integer = 0 To 4
                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
                Next
            Next
            MsExcel.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 


(02-04-15, 12:07 AM)Dr.Sherif Alazizi كتب :

(01-04-15, 10:43 PM)الدريساوي كتب : جزاك الله خير جزاء [b]Dr.Sherif Alazizi[/b]
على سبيل مثال عندي 10 اعمدة  واحتاج تصدير فقط العمود /8/2/4/5/7 فقط 
مشكور اخي على هذا الكود 

لا تحزن
تم تعديل الكود  ليقوم بما تريد


حمل المرفقات
ستجد المثال
وشرح للكود وطريقة عمله بالفيديو

موفق ان شاء الله