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

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

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


شكرا مقدما


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية جلب مدة تشغيل عدة ملفات صوتية قبل تشغيلها asmarsou 3 313 منذ 5 ساعة مضت
آخر رد: alfaiz678
  كيفية اضافة فيديو لمشروع ابو نور الهدى 3 68 , 02:44 AM
آخر رد: أسعد
  [سؤال] كيفية تغير الكلام في البوتون عند الضغط bilqees36 2 109 08-04-21, 05:02 PM
آخر رد: bilqees36
  الحفظ والتعديل مباشرة من الداتا جريد aftfm 1 129 06-04-21, 11:26 AM
آخر رد: عبد العزيز البسكري
  تعبئة الداتا قريد aftfm 6 222 31-03-21, 08:48 PM
آخر رد: messry
  كيفية وضع تقارير فرعية داخل التقرير الأساسي كريستال ريبورت saud4001 0 128 26-03-21, 07:31 AM
آخر رد: saud4001
  [سؤال] كيفية التعامل مع عدة قواعد بيانات ابو انس 6 298 26-03-21, 02:52 AM
آخر رد: ابو انس
  سؤال في الداتا جريد فيو Emam emam 10 1,670 21-03-21, 06:44 PM
آخر رد: رضوان الجماعي
  [سؤال] سؤال كيفية عمل طرق الدفع عن طريق الفيز ا عاصم النجار 0 137 15-03-21, 06:52 AM
آخر رد: عاصم النجار
  [سؤال] استفسار عن تحويل كود طباعة داتا قريد فيو من اليسار لليمين Marwan9990 13 4,075 12-03-21, 07:22 PM
آخر رد: abuyazan

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


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