تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] برنامج Export To 2.0 لتصدير بيانات الجداول
#1
بسم الله الرحمن الرحيم


الحمد لله رب العالمين، والصلاة والسلام على سيدنا محمد وعلى آله وصحبه أجمعين

السلام عليكم ورحمة الله وبركاته

تكلمت في موضوع سابق عن خاصية تصدير البيانات إلى امتدادات مختلفة والتي تعرف بـ Export To كما هو الحال في البرامج العالمية ...
وكنت قد ذكرت طريقة تصدير البيانات إلى صفحة إنترنت HTML...

واليوم أقدم لكم الإصدار الثاني من المشروع والذي تضمن إضافة جديدة وهي تصدير البيانات إلى صيغة RTF...

وهذه صور المشروع




تصدير البيانات إلى صفحة إنترنت HTML




تصدير البيانات إلى صفحة RTF




وأخيرا المشروع بالمرفقات

والسلام عليكم ورحمة الله وبركاته


الملفات المرفقة
.zip   ExportTo2.0.zip (الحجم : 72.37 ك ب / التحميلات : 726)
الرد
#2
السلام عليكم ورحمة الله وبركاته


ما شاء الله،
والله روعة ومفيد جداً،

الله يزيدك من علمه وفضله



السلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة: sooriaty03
#3
(01-10-13, 11:44 PM)@@أبورائد@@ كتب : السلام عليكم ورحمة الله وبركاته


ما شاء الله،
والله روعة ومفيد جداً،

الله يزيدك من علمه وفضله



السلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته

اللهم آمين

أشكرك أخي أبورائد على هذه الكلمات الطيبة
الرد
تم الشكر بواسطة: @@أبورائد@@
#4
بارك الله فيك
الرد
تم الشكر بواسطة: sooriaty03
#5
فعلا روعة جزاك الله خير وبارك الله فيك
ربي يفتح عليك
الرد
تم الشكر بواسطة: sooriaty03
#6
بسم الله الرحمن الرحيم
فعلا روعة البرنامج يصدر 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
الله المستعان
الرد
تم الشكر بواسطة:
#7
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ما في احد يرد هذا الموضوع مهم جدا والفائدة تعود الى الجميع
الله المستعان
الرد
تم الشكر بواسطة:
#8
ما شاء الله تبارك الله

وفقك الله sooriaty03

ونفعنا بعلمك
لا يلومني على انقطاعاتي المتكررة
فهي اما عمل او دراسة او تربية




سُبْحَانَكَ اللَّهُمَّ وَبِحَمْدِكَ، أَشُهَّدٌ أَنَّ لَا إلَهَ إلا أَنْتَ، أَسَتَغْفِرُكَ وَأَتُوبَ إِلَيْكَ
الرد
تم الشكر بواسطة:
#9
ما شاء الله عليك
المشروع شكله خطير خصوصا ان التصدير بنفس التنسيق
البراء بارك الله فيك
عدل مشروع اخونا sooriaty03
وارفعه لنا نستفيد معك
مشكلتي لازلت على اصدار 2008 لحاجة في نفس يعقوب.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله وبركاته

(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 لحاجة في نفس يعقوب.

أشكرك أخي على مرورك الجميل وكلماتك الطيبة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] برنامج يساعد على التحفيظ سعود 13 3,269 منذ 6 ساعة مضت
آخر رد: سعود
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 116 31,407 19-06-19, 05:20 PM
آخر رد: ahmed.zaki
Lightbulb عمل Attach و Detach لقاعدة بيانات MS Sql Server asemshahen5 6 74 18-06-19, 10:34 PM
آخر رد: asemshahen5
  برنامج لادارة الدروس الخصوصية VB.NET2013& Access moaath.khalaf 9 4,568 15-06-19, 07:10 AM
آخر رد: يوم التنحي
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 31 7,213 12-06-19, 01:15 PM
آخر رد: asemshahen5
Brick شرح عمل مشروع برنامج تحكم في اجهزة الاندرويد (ADB) mohammedvego 10 2,593 08-06-19, 04:04 PM
آخر رد: elgokr
  [مشروع] سورس كود برنامج محاسبه للسوبر ماركت فيجوال بيسك risboten 11 4,275 08-06-19, 01:16 PM
آخر رد: solbi
Thumbs Up [مثال] الحل النهائي لمشكلة التاريخ الهجري مع قواعد بيانات اكسس محمود بكرى 3 668 04-06-19, 01:59 PM
آخر رد: solbi
  [مشروع] سورس كود برنامج TreeviewTxt لعرض الملفات النصية والبحث بداخلها [ تم التحديث ] elgokr 7 304 11-05-19, 05:18 PM
آخر رد: elgokr
Lightbulb [VB.NET] مثال عن تصميم واجهة برنامج تسيير مخزن technomedia 9 523 07-05-19, 03:01 PM
آخر رد: technomedia

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


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