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


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

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

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

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

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




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




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




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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج البحث عن لقطة داخل صورة أخرى Taha Okla 4 1,233 أمس, 04:23 PM
آخر رد: عبدالكريم برشدان
  انشاء قاعدة بيانات اكسس بالكود Kamil 0 178 17-02-24, 10:43 PM
آخر رد: Kamil
  برنامج صانع الاكواد الاصدار المجاني الجديد aljzazy 27 20,083 14-01-24, 12:39 PM
آخر رد: mahmoued2022
Shocked برنامج مواقيت الصلاة ( الاذان ) alsaher1 5 2,531 25-11-23, 02:57 PM
آخر رد: alsaher1
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 174 143,573 18-11-23, 03:01 AM
آخر رد: Darweesh
  طريقة سهلة للاتصال بقاعدة بيانات SQL مع اضافة ايقونات للتحكم في تدفق البيانات ggtt17121985 0 541 06-11-23, 10:16 AM
آخر رد: ggtt17121985
Thumbs Up [VB.NET] برنامج محاسبي مجاني ( مبيعات - مشتريات - مخزون - حسابات ) مفتوح المصدر توب سوفت 3 7,497 06-11-23, 01:36 AM
آخر رد: Ramzigh
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 42 34,751 07-10-23, 07:25 PM
آخر رد: حورس2000
  برنامج لادارة الدروس الخصوصية VB.NET2013& Access moaath.khalaf 16 15,790 19-08-23, 12:22 AM
آخر رد: Ramadan alking
  برنامج بنك الأكواد esawy1 4 1,368 28-07-23, 11:53 AM
آخر رد: karmina2012

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


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