تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب فى تصدير بيانات 2 داتا جريد فيو الى الاكسل
#1
احبتى فى الله اتمنى ان تكونى بصجحه وخير كبير
انى استعمل هذا الكود فى تصدير البيانات الى الاكسيل من داتا جريد فيو ولدى فى الفورم 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


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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم