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

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

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


شكرا مقدما


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

.rar   DGV_EX.rar (الحجم : 75.73 ك ب / التحميلات : 21)
الرد
تم الشكر بواسطة:
#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 
مشكور جدا باش مهندس
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الانتقال إلى سجل محدد في الداتا قرايد فيو بدون استخدام select معتز حسن 3 38 منذ 1 ساعه مضت
آخر رد: جيولوجي مبتدئ
  تحقق عن قيمة فى الداتا جريد مع قيمة فى داتا جريد اخري mostafa12 4 1,189 22-07-21, 09:33 PM
آخر رد: إليسار
  تصدير بيانات DataGridView1 الى ملف Excel mr_hso 7 740 22-07-21, 04:55 PM
آخر رد: atefkhalf2004
  كيفية اضافة مشغل mpv بداخل الفورم ميدو الفنان 45 4,836 15-07-21, 02:45 AM
آخر رد: islam39
  كيفية حفظ باسورد برنامجي ؟ 4545Mohamed 6 219 08-07-21, 04:30 PM
آخر رد: 4545Mohamed
  [VB.NET] كيفية تشغيل مشغل mpv في الفيجوال بيسك ؟؟ 4545Mohamed 1 209 07-07-21, 09:06 PM
آخر رد: 4545Mohamed
  كيفية استخدام البروكسي فى الفيجوال بيسك proxy mediafourgi 5 598 02-07-21, 11:01 AM
آخر رد: asemshahen5
  تغيير قيمة الكومبوبوكس في الداتا جريد momani33 1 164 24-06-21, 03:53 PM
آخر رد: ابو انس
  [سؤال] كيفية انشاء عموداين ادخل listview alims 2 278 09-06-21, 12:45 AM
آخر رد: alims
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 14 6,773 08-06-21, 01:23 AM
آخر رد: Ammarahmed

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


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