بسم الله الرحمن الرحيم
الحمد لله رب العالمين، والصلاة والسلام على سيدنا محمد وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته
تكلمت في موضوع سابق عن خاصية تصدير البيانات إلى امتدادات مختلفة والتي تعرف بـ Export To كما هو الحال في البرامج العالمية ...
وكنت قد ذكرت طريقة تصدير البيانات إلى صفحة إنترنت HTML...
واليوم أقدم لكم الإصدار الثاني من المشروع والذي تضمن إضافة جديدة وهي تصدير البيانات إلى صيغة RTF...
وهذه صور المشروع
تصدير البيانات إلى صفحة إنترنت HTML
تصدير البيانات إلى صفحة RTF
وأخيرا المشروع بالمرفقات
والسلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
ما شاء الله،
والله روعة ومفيد جداً،
الله يزيدك من علمه وفضله
السلام عليكم ورحمة الله وبركاته
(01-10-13, 11:44 PM)@@أبورائد@@ كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
ما شاء الله،
والله روعة ومفيد جداً،
الله يزيدك من علمه وفضله
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
اللهم آمين
أشكرك أخي أبورائد على هذه الكلمات الطيبة
فعلا روعة جزاك الله خير وبارك الله فيك
ربي يفتح عليك
بسم الله الرحمن الرحيم
فعلا روعة البرنامج يصدر HTML و RTF واذا تم اضافة تصدير البيانات على ملف اكسل بنفس تنسيق خلايا datagridview يكون ممتاز وانا احتاج فقط كيف يتيم تنسيف الخلايا ملف الاكسل بنفس تنسيق خلايا datagridview مع العلم استخدمت لتصدير الى الاكسل هذا الكود
كود :
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
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ما في احد يرد هذا الموضوع مهم جدا والفائدة تعود الى الجميع
ما شاء الله تبارك الله
وفقك الله sooriaty03
ونفعنا بعلمك
ما شاء الله عليك
المشروع شكله خطير خصوصا ان التصدير بنفس التنسيق
البراء بارك الله فيك
عدل مشروع اخونا sooriaty03
وارفعه لنا نستفيد معك
مشكلتي لازلت على اصدار 2008 لحاجة في نفس يعقوب.
السلام عليكم ورحمة الله وبركاته
(12-11-13, 05:22 AM)البراء كتب : [ -> ]بسم الله الرحمن الرحيم
فعلا روعة البرنامج يصدر HTML و RTF واذا تم اضافة تصدير البيانات على ملف اكسل بنفس تنسيق خلايا datagridview يكون ممتاز وانا احتاج فقط كيف يتيم تنسيف الخلايا ملف الاكسل بنفس تنسيق خلايا datagridview مع العلم استخدمت لتصدير الى الاكسل هذا الكود
كود :
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
(21-11-13, 12:32 PM)البراء كتب : [ -> ]بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ما في احد يرد هذا الموضوع مهم جدا والفائدة تعود الى الجميع
أخي الكريم:
هذه الأداة لا تعتمد على أي أداة خارجية بل تعتمد على خوارزميات خاصة بإنشاء ملفي HTML و RTF ...
ونقل البيانات إلى الإكسل بنفس تنسيق DataGridView ممكن جدا ولكني لم أضعه في المشروع لأنه يعتمد على أداة خارجية قد لا تكون موجودة على جميع الأجهزة مما قد يؤدي إلى حدوث خطأ ...
(21-11-13, 12:57 PM)ابو ابراهيم كتب : [ -> ]ما شاء الله تبارك الله
وفقك الله sooriaty03
ونفعنا بعلمك
أشكرك أخي على مرورك الجميل وكلماتك الطيبة
(23-11-13, 12:16 AM)Lion_Ksa كتب : [ -> ]ما شاء الله عليك
المشروع شكله خطير خصوصا ان التصدير بنفس التنسيق
البراء بارك الله فيك
عدل مشروع اخونا sooriaty03
وارفعه لنا نستفيد معك
مشكلتي لازلت على اصدار 2008 لحاجة في نفس يعقوب.
أشكرك أخي على مرورك الجميل وكلماتك الطيبة
