24-12-13, 04:16 PM
24-12-13, 04:50 PM
لو انت شغال بفيجوال ستوديو 2010
وعملت تقرير report لمكونات الداتا سيت والمعروضة في الداتا جريد فيو
ستجد ايقونة أعلى التقرير للحفظ
من خلالها تسطيع حفظ المحتويات في اكسيل أو ورد أو pdf
وعملت تقرير report لمكونات الداتا سيت والمعروضة في الداتا جريد فيو
ستجد ايقونة أعلى التقرير للحفظ
من خلالها تسطيع حفظ المحتويات في اكسيل أو ورد أو pdf
24-12-13, 04:57 PM
انا استخدم فيجوال ستوديو 2008 ...
بس ياريت أكثر ايضاح لاني لم أفهم بشكل جيد ...
انا عندي بيانات مفلترة على الداتا غريد فيو واريد ارسالها كما هي معروضة لملف اكسل لكي اتعامل معها بأريحية في الطباعة لانها بيانات كبيرة نوعا ما ...
أحتاج الى كود يمكنني من نسخ البيانات ولصقها لانه عندما اقوم بنسخها تكون في صيغة غير قابلة للصق في الاكسل ...
انا لازلت مبتدئ في البرمجة واحتاج مساعدة بشكل اوضح اذا سمحت وبارك الله فيك ...
بس ياريت أكثر ايضاح لاني لم أفهم بشكل جيد ...
انا عندي بيانات مفلترة على الداتا غريد فيو واريد ارسالها كما هي معروضة لملف اكسل لكي اتعامل معها بأريحية في الطباعة لانها بيانات كبيرة نوعا ما ...
أحتاج الى كود يمكنني من نسخ البيانات ولصقها لانه عندما اقوم بنسخها تكون في صيغة غير قابلة للصق في الاكسل ...
انا لازلت مبتدئ في البرمجة واحتاج مساعدة بشكل اوضح اذا سمحت وبارك الله فيك ...
26-12-13, 04:29 AM
هذا كود للاخ حسام الشامي ... من خارج الموقع
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
26-12-13, 11:39 PM
بارك الله فيك أخي مـــــالك وجزاك الله خيرا ... والله انك أنقذتني بهذا الكود ووجدت فيه ضالتي ... لك جزيل الشكر
27-12-13, 12:06 AM
السلام عليكم
اخي العزيز الأخ tarek كان يقصد انه يمكن ان تطبع البيانات في التقرير ومن التقرير يمكن بكبسة زر ان تصدر البيانات الى ملف Excel
تحياتي
اخي العزيز الأخ tarek كان يقصد انه يمكن ان تطبع البيانات في التقرير ومن التقرير يمكن بكبسة زر ان تصدر البيانات الى ملف Excel
تحياتي