تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية تصدير اعمدة محددة من الداتا قريد الي الاكسل
#1
السلام عليكم اصدقائي 

كيف حالكم جميعا 

كيف يمكنني تصدير اعمده التي انا احددها عن طريق CheckBox بحيث يتم تصدير الاعمدة المعروضة فقط علي الداتا قريد 


شكرا مقدما


الملفات المرفقة صورة/صور
       

.rar   DGV_EX.rar (الحجم : 75.73 ك ب / التحميلات : 23)
الرد
تم الشكر بواسطة:
#2
(20-03-21, 07:24 PM)عبدالكريم برشدان كتب : السلام عليكم اصدقائي 

كيف حالكم جميعا 

كيف يمكنني تصدير اعمده التي انا احددها عن طريق CheckBox بحيث يتم تصدير الاعمدة المعروضة فقط علي الداتا قريد 


شكرا مقدما

PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        
Try

            
Dim MsExcel CreateObject("Excel.Application")


            
MsExcel.Workbooks.Add()
            
MsExcel.Visible False



            Dim k 
As New ArrayList
            
If CheckBox1.Checked Then k.Add(0)
            If 
CheckBox2.Checked Then k.Add(1)
            If 
CheckBox3.Checked Then k.Add(2)

            
Dim g As Integer
            g 
0
            
For As Integer 0 To DataGridView1.Columns.Count 1

                
If Not k.Contains(iThen Continue For

                
1

                
'MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
                MsExcel.Cells(g).Value = DataGridView1.Columns(i).HeaderText


            Next


            g = 0
            For i As Integer = 0 To DataGridView1.Columns.Count - 1

                If Not k.Contains(i) Then Continue For

                g = g + 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(1).Font.Bold 1


                    
'MsExcel.Rows.Item(j + 1).Font.size = 14

                    MsExcel.Cells(j + 1).ColumnWidth = 14


                    '
MsExcel.Cells(21).Value DataGridView1.Rows(j).Cells(i).Value
                    MsExcel
.Cells(2g).Value DataGridView1.Rows(j).Cells(i).Value


                Next


            Next

            
If MsgBox("هل تريد فتح الملف"MsgBoxStyle.YesNo"تصدير البيانات") = MsgBoxResult.Yes Then
                
'frm_excel.TopMost = False
                MsExcel.Visible = True

            End If



        Catch ex As Exception


            MsgBox(ex.Message)


        End Try

    End Sub 
الرد
تم الشكر بواسطة: علي بنيان
#3
(20-03-21, 08:42 PM)Ronald كتب :
(20-03-21, 07:24 PM)عبدالكريم برشدان كتب : السلام عليكم اصدقائي 

كيف حالكم جميعا 

كيف يمكنني تصدير اعمده التي انا احددها عن طريق CheckBox بحيث يتم تصدير الاعمدة المعروضة فقط علي الداتا قريد 


شكرا مقدما

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Try

            Dim MsExcel 
CreateObject("Excel.Application")


 
           MsExcel.Workbooks.Add()
 
           MsExcel.Visible False



            Dim k 
As New ArrayList
            If CheckBox1
.Checked Then k.Add(0)
 
           If CheckBox2.Checked Then k.Add(1)
 
           If CheckBox3.Checked Then k.Add(2)

 
           Dim g As Integer
            g 
0
            For i 
As Integer 0 To DataGridView1.Columns.Count 1

                If Not k
.Contains(iThen Continue For

 
               g 1

                
'MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
                MsExcel.Cells(g).Value = DataGridView1.Columns(i).HeaderText


            Next


            g = 0
            For i As Integer = 0 To DataGridView1.Columns.Count - 1

                If Not k.Contains(i) Then Continue For

                g = g + 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(1).Font.Bold 1


                    
'MsExcel.Rows.Item(j + 1).Font.size = 14

                    MsExcel.Cells(j + 1).ColumnWidth = 14


                    '
MsExcel.Cells(21).Value DataGridView1.Rows(j).Cells(i).Value
                    MsExcel
.Cells(2g).Value DataGridView1.Rows(j).Cells(i).Value


                Next


            Next

            If MsgBox
("هل تريد فتح الملف"MsgBoxStyle.YesNo"تصدير البيانات") = MsgBoxResult.Yes Then
                
'frm_excel.TopMost = False
                MsExcel.Visible = True

            End If



        Catch ex As Exception


            MsgBox(ex.Message)


        End Try

    End Sub 
مشكور جدا باش مهندس
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية تحويل قيمة textbox الي hex ابو ياسين ويزن 2 70 منذ 39 دقيقة مضت
آخر رد: ابو ياسين ويزن
  كيفية اضافة الصوت مع ظهور المسج بوكس ابو نور الهدى 1 58 , 12:52 PM
آخر رد: سعود
  كيف التعامل مع DataGridView في حال وجود اعمدة غير متطابقة في DataSource غدير الصليحي 3 143 , 12:47 PM
آخر رد: سعود
  كيف يمكن تصدير البيانات الى ملف محدد في الاكسل من الداتاقريدفيو جيولوجي مبتدئ 0 69 27-11-21, 02:56 PM
آخر رد: جيولوجي مبتدئ
Exclamation [VB.NET] فزعتكم شباب ... كيفية عرض جداول وأعمدة قاعدة البيانات أبو خالد الشكري 7 288 26-11-21, 05:53 PM
آخر رد: سعود
  [سؤال] كيفية عمل صندوق صورة alims 4 208 24-11-21, 12:46 PM
آخر رد: alims
  ممكن مثال على كيفية تعليق فاتورررة tfarejdz 4 276 22-11-21, 02:10 AM
آخر رد: Taha Okla
  [VB.NET] مشكلة عند تصدير بيانات الداتا جريد فيو الي ملف وورد moftah70 0 116 21-11-21, 01:44 AM
آخر رد: moftah70
  كيفية اضافة المكتبة Aspose atefkhalf2004 6 310 16-11-21, 04:04 AM
آخر رد: ابو روضة
  اريد طريقة لجمع عمود في الداتا جريد مع الكسور بسام محمدغانم 2 200 09-11-21, 08:00 AM
آخر رد: بسام محمدغانم

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


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