تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصدير للاكسيل
#1
السلام عليكم ورحمة الله وبركاتة
كود تصدير من الداتا جريد فيو الى الاكسيل
الكود مش جديد لكن ممكن حد يستفيد بيه


 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
الرد }}}}
تم الشكر بواسطة: عدنان الشمري
#2
كيف اضافة العناوين اقصد الهيدر
الرد }}}}
تم الشكر بواسطة:
#3
المسالة صعبة هكذا و خاصة ان كانت صورة
الاحسن هو عمل تصدير عن طريق cyrstal report
الرد }}}}
تم الشكر بواسطة: hitman48
#4
تسلم اخي راح اشوف كيف
الرد }}}}
تم الشكر بواسطة:
#5
PHP كود :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions
.Shared
Imports CrystalDecisions
.CrystalReports


 
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim myreport 
As New CrystalReport1
        Dim export 
As New ExportOptions
        Dim excelformat 
As New ExcelFormatOptions
  Dim dfoptions 
As New DiskFileDestinationOptions
dfoptions
.DiskFileName "D:\Excel1.xls"
 
export myreport.ExportOptions
        export
.ExportDestinationType ExportDestinationType.DiskFile
        export
.ExportFormatType ExportFormatType.Excel
        export
.ExportFormatOptions excelformat
        export
.ExportDestinationOptions dfoptions
        myreport
.Export()
 
       MessageBox.Show("Operation SuccessFuly""Export Excel"MessageBoxButtons.OKMessageBoxIcon.Information)
End Sub 
هدا هو الكود كاملا الدي يجب كتابته
اولا يجب ان تكون منصبا cyrstal report
و تكون عامل تقرير للفورم الدي تريد عمل له عملية تصدير
ثم اضف زر في الفورم

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


الملفات المرفقة
.rar   Projects.rar (الحجم : 647.61 ك ب / التحميلات : 49)
الرد }}}}
تم الشكر بواسطة: hitman48 , hitman48
#6
والله اخي بوركت ... تعبتك معاي تسلم اخي وجعله في ميزان حسناتك
الرد }}}}
تم الشكر بواسطة:
#7
ما في تعب و لله الحمد انا في الخدمة لو احتاج اي حاجة
المهم انك تستفيد
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصدير البيانات إلى إكسل khodor1985 0 384 07-12-15, 09:42 PM
آخر رد: khodor1985
  تصدير واستيراد البيانات من xml khodor1985 0 266 07-12-15, 08:12 PM
آخر رد: khodor1985
  تصدير السجلات من قاعدة البيانات إلى ملف XML khodor1985 2 394 25-09-15, 08:07 AM
آخر رد: khodor1985

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


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