منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف تصدير البيانات من االداتاكرد إلى اكسل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم قواعد البيانات العام (http://vb4arb.com/vb/forumdisplay.php?fid=169)
+--- الموضوع : كيف تصدير البيانات من االداتاكرد إلى اكسل (/showthread.php?tid=12627)

كيف تصدير البيانات من االداتاكرد إلى اكسل - swengineeer - 30-06-15

السلام عليكم .. رمضان كريم ..
مساعدة في كيفية تصدير البيانات من الداتاكرد اإلى اكسل
مع ممراعاة عدم ضهور الاعمدة المخفية في الداتا
وكذلك ضهور اسماء الأعمدة في الداتا وليس أسماء الأعمدة في قاعدة البيانات
ولكم جزيل الشكر ..

RE: كيف تصدير البيانات من االداتاكرد إلى اكسل - khodor1985 - 23-08-15

السلام عليكم أخي العزيز ورحمة الله وبركاته
ضع الكود التالي بعد استدعاء مكتبة الإكسل


PHP كود :
Dim ExcelApp As Object, ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer
 
'create object of excel
ExcelApp = CreateObject("Excel.Application")
ExcelBook = ExcelApp.WorkBooks.Add
ExcelSheet = ExcelBook.WorkSheets(1)
 
With ExcelSheet
     For i = 1 To Me.DataGridView1.RowCount
           .cells(i + 1, 1) = Me.DataGridView1.Rows(i - 1).Cells("id").Value
           For j = 1 To DataGridView1.Columns.Count - 1
               .cells(i + 1, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
           Next
     Next
End With
 
ExcelApp.Visible = True
'
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing 

أتمنى لك التوفيق