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


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

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

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

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

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




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




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




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

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


الملفات المرفقة
.zip   ExportTo2.0.zip (الحجم : 72.37 ك ب / التحميلات : 484)
الرد }}}}
تم الشكر بواسطة: 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 لحاجة في نفس يعقوب.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#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 لحاجة في نفس يعقوب.

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [مشروع] برنامج ذكر(اذكار) سعود 15 3,373 أمس, 07:14 AM
آخر رد: سعود
  [مشروع] برنامج الجرس المدرسي الناطق سيد درويش 7 990 17-01-17, 01:10 PM
آخر رد: ridha69
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 54 70,622 12-01-17, 06:35 AM
آخر رد: mahmoudsaleh
  [مثال] برنامج للتذكير بالمواعيد [ Access + Vb.net ] ( منقول ) Omar Mekkawy 16 6,653 09-01-17, 08:39 PM
آخر رد: azhajj
  برنامج تسجيل و تسجيل دخول رائع ahmedelkady 6 2,567 08-01-17, 06:57 PM
آخر رد: ابن دوعن
  [مشروع] برنامج لتسريع أنشاء المسج بوكس بكل مرونه ابو نجلاء 5 301 03-01-17, 01:25 PM
آخر رد: سلامه محمد11
  [مشروع] برنامج الناشر التلقائي للفيس بوك قروبات + صفحات + اضافات اخرى Basil Abdallah 7 185 01-01-17, 11:42 AM
آخر رد: Basil Abdallah
  [مثال] مثال لإرسال الرسائل من الاجهزة الفرعية الى برنامج سيرفر ابو ليلى 0 115 25-12-16, 07:14 PM
آخر رد: ابو ليلى
  [مشروع] برنامج مواقيت الصلاة(المؤذن) mohamed haroon 10 1,791 21-12-16, 06:01 PM
آخر رد: mohamed haroon
  سورس كود برنامج تسجيل الدخول للفيس بوك من صنعي Basil Abdallah 1 124 21-12-16, 02:31 PM
آخر رد: Rn11

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


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