08-03-22, 02:46 PM
13-03-22, 03:50 PM
(08-03-22, 02:46 PM)bassant كتب : [ -> ]اريد كود تصدير بيانات datagridview الى ايكسيل في .net باستخدام اصدار 2005 من الفيجوال بيسكارجو المساعدة
وشكرا لكم
13-03-22, 06:34 PM
جرب هذا الكود :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "Last Name"
oSheet.Range("B1").Value = "Middle Name"
oSheet.Range("C1").Value = "First Name"
' بحسب عدد الأعمدة تضع هنا أمر بتعبئة خلايا الاكسس D >> E >> F
oSheet.Range("A1:C1").Font.Bold = True
' بحسب عدد الأعمدة تضع هنا أمر بتعديل الخط لـ خلايا الاكسس D >> E >> F
For i = 0 To DataGridView1.Rows.Count - 2
oSheet.Range("A" & Val(i + 2)).Value = DataGridView1.Rows(i).Cells(0).Value
oSheet.Range("B" & Val(i + 2)).Value = DataGridView1.Rows(i).Cells(1).Value
oSheet.Range("C" & Val(i + 2)).Value = DataGridView1.Rows(i).Cells(2).Value
' بحسب عدد الأعمدة تضع هنا أمر بتعبئة خلايا الاكسس D >> E >> F
Next i
oBook.SaveAs("C:\Book1.xls")
oExcel.Quit
End Sub