تقييم الموضوع :
  • 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
*************************

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 108 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 144 15-08-17, 02:11 PM
آخر رد: abozeyd
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 144 19-07-17, 03:24 PM
آخر رد: waelalmsry75
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 153 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 670 03-07-17, 05:04 AM
آخر رد: K39
  [سؤال] كيف احفظ صورة الطالب الى قاعدة البيانات عبداللطيف2017 6 311 25-06-17, 01:47 PM
آخر رد: silverlight
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 5,987 28-05-17, 05:30 PM
آخر رد: abiza
  [كود] كنت عايز كود التحديث في قاعدة البيانات لسه مبتدئ 3 223 12-05-17, 01:59 PM
آخر رد: Adrees
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 180 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  [C#.NET] استيراد البيانات من جهاز البصمة ahmed gabe 2 230 29-04-17, 11:12 PM
آخر رد: ahmed gabe

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


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