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

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

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


شكرا مقدما


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

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


انا ايضاً استفدت من الرد

الف شكر لك

و الشكر موصول لصاحب الموضوع
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [VB.NET] كيف نستورد أعمدة محددة من أكسل ؟ saud1004 10 402 25-01-24, 04:12 PM
آخر رد: saud1004
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA

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


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