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


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

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

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

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

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




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




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




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

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


الملفات المرفقة
.zip   ExportTo2.0.zip (الحجم : 72.37 ك ب / التحميلات : 587)
الرد
تم الشكر بواسطة: Sajad , @@أبورائد@@ , programmer_25 , tarek , kslawy , Omar Mekkawy
#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 لحاجة في نفس يعقوب.

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 61 82,441 اليوم, 12:26 AM
آخر رد: moniam
  [مشروع] برنامج مفتوح المصدر لعمل اسكرين شوت للشاشة elmezo 0 50 20-04-18, 12:37 PM
آخر رد: elmezo
Heart [مشروع] نسخه مصغره من برنامج صانع الاكواد للجميع aliday03 11 1,925 18-04-18, 10:31 AM
آخر رد: elmezo
  برنامج لادارة الدروس الخصوصية VB.NET2013& Access moaath.khalaf 2 189 15-04-18, 05:29 PM
آخر رد: اي سفن
  [مثال] إنشاء قاعدة بيانات اكسس بالكود ابو ليلى 6 761 13-04-18, 01:18 PM
آخر رد: moniam
Video [مشروع] لعبة إختبر معلوماتك [أسئلة عشوائية]+[قاعدة بيانات xml] + [تأثيرات صوتية] عبدالله الدوسري 3 114 11-04-18, 03:13 AM
آخر رد: tarek
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 20 894 10-04-18, 08:42 PM
آخر رد: خالد جلال
Thumbs Up [مثال] الحل النهائي لمشكلة التاريخ الهجري مع قواعد بيانات اكسس محمود بكرى 1 119 08-04-18, 01:06 AM
آخر رد: أبووسم
Photo [مشروع] نظام إدارة بيانات do3aa 7 225 01-04-18, 10:27 PM
آخر رد: do3aa
  برنامج المحاسب كامل بالسورس كود محمود صالح 17 1,440 26-03-18, 01:34 PM
آخر رد: kurdi99

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


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