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

السلام عليكم 



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



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


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

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

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


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


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

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

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


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

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

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

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

تحياتي ,,

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

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


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

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

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