[OsamaVB]

كيف يمكن نسخ محتويات DataGridView المعروضة ولصقها في ملف Excel ..!!

[tarek]

لو انت شغال بفيجوال ستوديو 2010
وعملت تقرير report لمكونات الداتا سيت والمعروضة في الداتا جريد فيو
ستجد ايقونة أعلى التقرير للحفظ
من خلالها تسطيع حفظ المحتويات في اكسيل أو ورد أو pdf

[OsamaVB]

انا استخدم فيجوال ستوديو 2008 ...

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

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

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

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

[مالكـ]

هذا كود للاخ حسام الشامي ... من خارج الموقع

PHP كود :

Imports Excel = Microsoft.Office.Interop.Excel 


PHP كود :

Dim rowsTotal, colsTotal As Short
        Dim I, j, iC 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(1, currCol).Value = DataGridView1.Columns(iC).HeaderText
                        currCol = currCol + 1
                    End If

                Next


                For I = 0 To rowsTotal
                    currCol = 1
                    For j = 0 To colsTotal
                        If DataGridView1.Columns(j).Visible = True Then
                            .Cells(I + 2, currCol).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(1, 1).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 


[OsamaVB]

بارك الله فيك أخي مـــــالك وجزاك الله خيرا ... والله انك أنقذتني بهذا الكود ووجدت فيه ضالتي ... لك جزيل الشكر

[Sajad]

السلام عليكم

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

تحياتي