تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[نقاش] ارسال البيانات الى ملف Excel باستخدام VB.Net
#1
الســــــــــلام عليكم ..

هذا الكود يعمل على ارسال البيانات من قاعدة البيانات في البرنامج الى ملف Excel .. هذه الطريقة مفيدة جداص في بعض الاحيان للاستفادة من البيانات في صورة جداول عادية والتعديل عليها بالشكل المطلوب للطباعة أو لأي غرض آخر ..

ولكن واجهتني مشكلة في تحديد البيانات التي يجب ارسالها فهذا الكود يقوم بارسال جميع البيانات من الجدول المحدد في DataBase ..

طريقة تحديد جزء من البيانات لأرسالها الى Excel يحتاج الى فهم كامل لحركة الارسال عن طريق دالة For Next الموجودة بالكود والتي تعمل على نقل البيانات خلية خلية ومحاولة التعديل عليها دون فهم كامل قد يتسبب في ارسال البيانات بشكل خاطئ أو غير مرتب..

فارجو منكم وممن يستطيع مساعدتي في تحديد البيانات المراد ارسالها أن يزودني بالطريقة في أسرع وقت علما بأني أستخدم خاصية Visible لتحديد البيانات المراد عرضها في DataGridView وتلك البيانات المعروضة هي ما اريد ارساله فقط الى ملف Excel ...

.......... الكود ...........

Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim c As Integer
Dim ind As Integer


xlApp = New Microsoft.Office.Interop.Excel.Application
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets(1)



ind = 0
For ind = 0 To 18
If TDataGridView.Columns(ind).Visible = True Then


k = ind + 1
c = c + 1


For i = 0 To TDataGridView.RowCount - 1
For j = 0 To TDataGridView.ColumnCount - 1


xlWorkSheet.Cells(1, c) = TDataGridView.Columns(k - 1).HeaderText
xlWorkSheet.Cells(i + 2, j + 1) = TDataGridView(j, i).Value
Next
Next


End If
Next
xlWorkSheet.SaveAs("E:\بيانات الموظفين.xlsx")
xlWorkBook.Close()
xlApp.Quit()


ReleaseObject(xlApp)
ReleaseObject(xlWorkBook)
ReleaseObject(xlWorkSheet)


Dim res As MsgBoxResult
res = MsgBox("تم حفظ البيانات .. هل تريد فتح الملف؟", MsgBoxStyle.YesNo)
If (res = MsgBoxResult.Yes) Then
Process.Start("E:\بيانات الموظفين.xlsx")
End If
*************************

أنا الذي نظر الأعمى إلى أدبي ...
وأسمعت كلماتي من به صممُ

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 115 16-03-19, 12:00 AM
آخر رد: اباذر
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 413 12-03-19, 10:23 PM
آخر رد: segma
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 114 21-02-19, 04:38 PM
آخر رد: elgokr
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 157 20-02-19, 11:08 AM
آخر رد: alfaiz678
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 98 13-02-19, 01:03 AM
آخر رد: EMADSSS
  تصحيح كود الحفظ لقاعدة البيانات raaddawood 15 336 28-01-19, 08:53 PM
آخر رد: raaddawood
  كود sql اضافة او تغير كلمة المرور لقاعدة البيانات اللورد محمود 1 127 28-01-19, 06:56 PM
آخر رد: عبد العزيز البسكري
  اجمالى الفواتير فى قاعدة البيانات atef_020 10 424 22-01-19, 03:44 PM
آخر رد: atef_020
  عمل قاعدة البيانات salah mansour 5 242 19-12-18, 01:31 AM
آخر رد: حريف برمجة
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 1 327 16-12-18, 09:07 PM
آخر رد: viv

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


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