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


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

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

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

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

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




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




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




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

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


الملفات المرفقة
.zip   ExportTo2.0.zip (الحجم : 72.37 ك ب / التحميلات : 510)
الرد }}}}
تم الشكر بواسطة: 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 لحاجة في نفس يعقوب.

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] عمل برنامج أختبار بقواعد بيانات أكسس + الأسئلة عشوائية Easy4ever 15 5,467 منذ 8 ساعة مضت
آخر رد: ام محمد احمد
  [مشروع] برنامج يساعد على التحفيظ سعود 10 1,295 اليوم, 01:26 AM
آخر رد: ابو روضة
  [مثال] مثال لإرسال الرسائل من الاجهزة الفرعية الى برنامج سيرفر ابو ليلى 2 474 16-07-17, 04:06 AM
آخر رد: ابو ليلى
Heart [مشروع] برنامج ذكر(اذكار) سعود 17 4,072 13-07-17, 10:36 PM
آخر رد: سعود
  [مشروع] كيفية صنع برنامج اختصار روابط احترافى Mina Botros 0 57 11-07-17, 03:54 PM
آخر رد: Mina Botros
  برمجة برنامج اطفاء الكمبيوتر فى اى وقت بالفيجوال بيسك 2010 Mina Botros 4 157 07-07-17, 03:39 PM
آخر رد: Mina Botros
Thumbs Up برمجة برنامج اطفاء الكمبيوتر فى اى وقت بالفيجوال بيسك 2010 Mina Botros 0 71 06-07-17, 09:30 PM
آخر رد: Mina Botros
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 2 180 02-07-17, 08:14 PM
آخر رد: Mina Botros
  تشغيل ملف تنفيذي من داخل برنامج أخر silverlight 1 126 23-06-17, 08:27 PM
آخر رد: Fantastico
  [VB.NET] [VB.NET] الجزء الأول : طريقة عمل برنامج بث مباشر لمباريات ( تصميم و تكويد ) larbi matador 2 129 23-06-17, 05:33 AM
آخر رد: larbi matador

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


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