منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب فى تصدير بيانات 2 داتا جريد فيو الى الاكسل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب فى تصدير بيانات 2 داتا جريد فيو الى الاكسل (/showthread.php?tid=32060)



طلب فى تصدير بيانات 2 داتا جريد فيو الى الاكسل - خالد كامل1 - 10-11-19

احبتى فى الله اتمنى ان تكونى بصجحه وخير كبير
انى استعمل هذا الكود فى تصدير البيانات الى الاكسيل من داتا جريد فيو ولدى فى الفورم 2 داتا جريد فيو فهل من طريقه عرض بيانات الداتا جريد فيو الاولى والثانيه او اكثر الى نفس ورقه الاكسيل 
كود :
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


               Next


           Next


           MsExcel.Visible = True


       Catch ex As Exception


           MsgBox(ex.Message)


       End Try


ولكم منى جيل الشكر


RE: طلب فى تصدير بيانات 2 داتا جريد فيو الى الاكسل - ابراهيم ايبو - 11-11-19

السلام عليكم اخي خالد
الامر نناقشه بالمنطق
ورقة الاكسل هي جدول له اعمدة وصفوف وعند تصدير اي داتا غرايد الى ورقة الاكسل تتشكل اعمد وصفوف مثل الداتا غرايد
الان اذا اردنا تصدير اي داتا غرايد اخرى يجب ان تكون اعمدتها نفس اعمدة الداتا غرايد الاولى حتى تعتبر كصفوف اضافية
 ولعمل ذلك يجب انشاء داتا غرايد ثالثة نظهر فيها الاولى والثانية ثم يتم تصديرها الى الاكسل
اما ان تصدر كل واحدة على حدة الى نفس الورقة 
فاعتقد لايمكن الا اذا قمنا باضافة الداتا غرايد الثانية الى ورقة الاكسل كبيانات متممة للاولى
اي كسجلات تحفظ في الورقة مثل التعامل مع قاعدة بيانات اكسل
اما ان تصدر كل داتا غرايد ومختلفة في الاعمدة فلا يمكن حسب ماعرفت
هذا حد معرفتي والله اعلم ومن بعده من له معرفة اكثر بهذا الامر