+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : تصدير للاكسيل (/showthread.php?tid=13733)
تصدير للاكسيل - walkady - 06-11-15
السلام عليكم ورحمة الله وبركاتة
كود تصدير من الداتا جريد فيو الى الاكسيل
الكود مش جديد لكن ممكن حد يستفيد بيه
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
RE: تصدير للاكسيل - hitman48 - 12-06-16
كيف اضافة العناوين اقصد الهيدر
RE: تصدير للاكسيل - aliday03 - 12-06-16
المسالة صعبة هكذا و خاصة ان كانت صورة
الاحسن هو عمل تصدير عن طريق cyrstal report
RE: تصدير للاكسيل - hitman48 - 12-06-16
تسلم اخي راح اشوف كيف
RE: تصدير للاكسيل - aliday03 - 13-06-16
PHP كود :
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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.OK, MessageBoxIcon.Information)
End Sub
اولا يجب ان تكون منصبا cyrstal report
و تكون عامل تقرير للفورم الدي تريد عمل له عملية تصدير
ثم اضف زر في الفورم
السلام عليكم و رحمة الله تعالى و بركاته
هدا مثال على دالك
مثال شامل
اضافة بيانات
تعديل البيانات
حدف البيانات
البحث المتقدم
التنقل بين السجلات
حساب count sum avg
البحث بين تاريخين
الطباعة
تصدير البيانات الى الاكسل
تصدير البيانات الى pdf
ارجو من الله العلي القدير ان اكون قد وفقت في توصيل المعلومة
RE: تصدير للاكسيل - hitman48 - 14-06-16
والله اخي بوركت ... تعبتك معاي تسلم اخي وجعله في ميزان حسناتك
RE: تصدير للاكسيل - aliday03 - 14-06-16
ما في تعب و لله الحمد انا في الخدمة لو احتاج اي حاجة
المهم انك تستفيد