منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة
كود تصدير من الداتا جريد فيو الى الاكسيل
الكود مش جديد لكن ممكن حد يستفيد بيه


 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'تصدير لاكسيل
       
        Dim EOpject As Object
        Dim ENew As Object
        Dim EWork As Object
        '----------------------
        Dim I, N As Integer
        '---------------------------------------------------
        EOpject = CreateObject("Excel.Application")
        ENew = EOpject.Workbooks.Add
        EWork = ENew.Worksheets.Add
        '----------------------------------------------------
        '-- Export  From DataGridView To Excel
        For I = 0 To DataGridView1.RowCount - 1
            For N = 0 To Me.DataGridView1.ColumnCount - 3 '
                EWork.Cells(I + 1, N + 1).Value = DataGridView1.Rows(I).Cells(N).Value
            Next
        Next
        EOpject.Visible = True
    End Sub

كيف اضافة العناوين اقصد الهيدر

المسالة صعبة هكذا و خاصة ان كانت صورة
الاحسن هو عمل تصدير عن طريق cyrstal report

تسلم اخي راح اشوف كيف

هدا هو الكود كاملا الدي يجب كتابته
اولا يجب ان تكون منصبا cyrstal report
و تكون عامل تقرير للفورم الدي تريد عمل له عملية تصدير
ثم اضف زر في الفورم

---

السلام عليكم و رحمة الله تعالى و بركاته
هدا مثال على دالك
مثال شامل
اضافة بيانات
تعديل البيانات
حدف البيانات
البحث المتقدم
التنقل بين السجلات
حساب count sum avg
البحث بين تاريخين
الطباعة
تصدير البيانات الى الاكسل
تصدير البيانات الى pdf
ارجو من الله العلي القدير ان اكون قد وفقت في توصيل المعلومة

والله اخي بوركت ... تعبتك معاي تسلم اخي وجعله في ميزان حسناتك

ما في تعب و لله الحمد انا في الخدمة لو احتاج اي حاجة
المهم انك تستفيد