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

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

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

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 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

swengineeer

khodor1985