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

نسخة كاملة : تصدير بيانات datagridview الى ايكسيل باستخدام فيجوال ستوديو 2005
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد كود تصدير بيانات datagridview الى ايكسيل في .net  باستخدام  اصدار 2005 من الفيجوال بيسك 
وشكرا لكم
(08-03-22, 02:46 PM)bassant كتب : [ -> ]اريد كود تصدير بيانات datagridview الى ايكسيل في .net  باستخدام  اصدار 2005 من الفيجوال بيسك 
وشكرا لكم
ارجو المساعدة
جرب هذا الكود :

كود :
   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