[Taha Okla]

جرب هذا الكود :

كود :

   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