[الدريساوي]

السلام عليكم 



محتاج كود تصدير بعض الاعمدة من DataGridView الى الاكسيل 



فقط بعض الاعمدة 


جزاكم الله خير جزاء 

[Dr.Sherif Alazizi]

(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 


[الدريساوي]

جزاك الله خير جزاء [b]Dr.Sherif Alazizi[/b]


على سبيل مثال عندي 10 اعمدة  واحتاج تصدير فقط العمود /8/2/4/5/7 فقط 


مشكور اخي على هذا الكود 

[Dr.Sherif Alazizi]

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

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


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

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

[الدريساوي]

جزاك الله خيراً
بارك الله بك Dr.Sherif Alazizi
هذا من كرمك وطيبتك

[Dr.Sherif Alazizi]

وجزاك بمثله
وفيك بارك

تحياتي ,,

[guma2155587]

(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 


[hoshosgost@yahoo.com]

(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 فقط 
مشكور اخي على هذا الكود 

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


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

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

اخي ولو اريد كل العواميد