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

*************************

أنا الذي نظر الأعمى إلى أدبي ...
وأسمعت كلماتي من به صممُ

الرد }}}
تم الشكر بواسطة: asemshahen5
#2
لو انت شغال بفيجوال ستوديو 2010
وعملت تقرير report لمكونات الداتا سيت والمعروضة في الداتا جريد فيو
ستجد ايقونة أعلى التقرير للحفظ
من خلالها تسطيع حفظ المحتويات في اكسيل أو ورد أو pdf
الرد }}}
تم الشكر بواسطة: Sajad , asemshahen5
#3
انا استخدم فيجوال ستوديو 2008 ...

بس ياريت أكثر ايضاح لاني لم أفهم بشكل جيد ...

انا عندي بيانات مفلترة على الداتا غريد فيو واريد ارسالها كما هي معروضة لملف اكسل لكي اتعامل معها بأريحية في الطباعة لانها بيانات كبيرة نوعا ما ...

أحتاج الى كود يمكنني من نسخ البيانات ولصقها لانه عندما اقوم بنسخها تكون في صيغة غير قابلة للصق في الاكسل ...

انا لازلت مبتدئ في البرمجة واحتاج مساعدة بشكل اوضح اذا سمحت وبارك الله فيك ...
*************************

أنا الذي نظر الأعمى إلى أدبي ...
وأسمعت كلماتي من به صممُ

الرد }}}
تم الشكر بواسطة: asemshahen5
#4
هذا كود للاخ حسام الشامي ... من خارج الموقع


PHP كود :
Imports Excel Microsoft.Office.Interop.Excel 
PHP كود :
Dim rowsTotalcolsTotal As Short
        Dim I
jiC As Short
        System
.Windows.Forms.Cursor.Current System.Windows.Forms.Cursors.WaitCursor
        Dim xlApp 
As New Excel.Application
        
Try
            
Dim excelBook As Microsoft.Office.Interop.Excel.Workbook xlApp.Workbooks.Add
            Dim excelWorksheet 
As Microsoft.Office.Interop.Excel.Worksheet CType(excelBook.Worksheets(1), Excel.Worksheet)
            
xlApp.Visible True
            rowsTotal 
DataGridView1.RowCount 1
            colsTotal 
DataGridView1.Columns.Count 1
            Dim currCol 
As Integer 1
            With excelWorksheet
                
.Cells.Select()
                .
Cells.Delete()
                For 
iC 0 To colsTotal

                    
If DataGridView1.Columns(iC).Visible True Then
                        
.Cells(1currCol).Value DataGridView1.Columns(iC).HeaderText
                        currCol 
currCol 1
                    End 
If

                
Next


                
For 0 To rowsTotal
                    currCol 
1
                    
For 0 To colsTotal
                        
If DataGridView1.Columns(j).Visible True Then
                            
.Cells(2currCol).value DataGridView1.Rows(I).Cells(j).FormattedValue
                            currCol 
currCol 1
                        End 
If
                    
Next j
                Next I

                
.Rows("1:1").Font.FontStyle "Bold"
                
.Rows("1:1").Font.Size 10
                
.Cells.Columns.AutoFit()
                .
Cells.Select()
                .
Cells.EntireColumn.AutoFit()
                .
Cells(11).Select()
            
End With
        
Catch ex As Exception
            MsgBox
("Export Excel Error " ex.Message)
        Finally
            
System.Windows.Forms.Cursor.Current System.Windows.Forms.Cursors.Default
            
xlApp Nothing
        End 
Try 
الرد }}}
تم الشكر بواسطة: Sajad , asemshahen5
#5
بارك الله فيك أخي مـــــالك وجزاك الله خيرا ... والله انك أنقذتني بهذا الكود ووجدت فيه ضالتي ... لك جزيل الشكر
*************************

أنا الذي نظر الأعمى إلى أدبي ...
وأسمعت كلماتي من به صممُ

الرد }}}
تم الشكر بواسطة: asemshahen5
#6
السلام عليكم

اخي العزيز الأخ tarek كان يقصد انه يمكن ان تطبع البيانات في التقرير ومن التقرير يمكن بكبسة زر ان تصدر البيانات الى ملف Excel

تحياتي
الرد }}}
تم الشكر بواسطة: tarek , asemshahen5



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


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