[ابو انس]

وعليكم السلام ورحمة الله وبركاته
هذا الكود يصدر محتويات داتا جريد فيو اسمه dgv_end الى ملف اكسل اعرف ان هذا ليس طلبك بشكل دقيق ولكن ارجو ان اكون ساعدت

كود :

 Dim oldCI As System.Globalization.CultureInfo = _
   System.Threading.Thread.CurrentThread.CurrentCulture
               System.Threading.Thread.CurrentThread.CurrentCulture = _
                   New System.Globalization.CultureInfo("en-US")

               Dim ExcelApp1 As Object, ExcelBook As Object
               Dim ExcelSheet As Object
             
               ExcelApp1 = CreateObject("Excel.Application")
               ExcelBook = ExcelApp1.WorkBooks.Add
               System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
               ExcelSheet = ExcelBook.WorkSheets(1)

               With ExcelSheet

                   For i = 1 To Me.DGV_END.RowCount
                       .cells(i + 1, 1) = Me.DGV_END.Rows(i - 1).Cells(0).Value

                       For j = 0 To DGV_END.Columns.Count - 1
                           .cells(j + 1) = DGV_END.Columns(j).HeaderText
                           .cells(i + 1, j + 1) = DGV_END.Rows(i - 1).Cells(j).Value

                       Next

                   Next

               End With

               ExcelApp1.Visible = True
               '
               ExcelSheet = Nothing
               ExcelBook = Nothing
               ExcelApp1 = Nothing