[walkady]

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


 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'تصدير لاكسيل
       
        Dim EOpject As Object
        Dim ENew As Object
        Dim EWork As Object
        '----------------------
        Dim I, N As Integer
        '---------------------------------------------------
        EOpject = CreateObject("Excel.Application")
        ENew = EOpject.Workbooks.Add
        EWork = ENew.Worksheets.Add
        '----------------------------------------------------
        '-- Export  From DataGridView To Excel
        For I = 0 To DataGridView1.RowCount - 1
            For N = 0 To Me.DataGridView1.ColumnCount - 3 '
                EWork.Cells(I + 1, N + 1).Value = DataGridView1.Rows(I).Cells(N).Value
            Next
        Next
        EOpject.Visible = True
    End Sub