خروجی اکسل از دیتاگرید

سلام من هر چی گشتم نتونستم اطلاعاتی پیدا کنم
چطور میتونم محتویات یه دیتا گرید رو همونجور که نشون داده شده به صورت اکسل خروجی بگیرم؟

سلام دوست عزیز اول کد های (sub)زیر رو به پروژتون اضافه میکنید
ضمیمه 153041

ضمیمه 153042

ضمیمه 153043
بعد از مراحل بالا کد Imports Microsoft.Office.Interop به بالای پروژه اضافه میشه و فقط کافی هر جا نیاز داشتی که دیتا گرید رو به اکسل تبدیل کنید از دستور ()toexel استفاده کنید
موفق باشید

    Sub toexel()

        System.Threading.Thread.CurrentThread.CurrentCultu  re = System.Globalization.CultureInfo.CreateSpecificCul  ture("en-US")

        Dim app As New Excel.Application

        Dim xlWorkBook As Excel.Workbook = app.Workbooks.Add()

        Dim xlWorkSheet As Excel.Worksheet

        Dim xlApp As New Excel.Application

        Dim misValue As Object = System.Reflection.Missing.Value

        xlWorkSheet = xlWorkBook.Sheets("Sheet1")

        For i As Integer = 1 To DataGridView1.Columns.Count

            xlWorkSheet.Cells(1, i) = DataGridView1.Columns(i - 1).HeaderText

        Next

        xlWorkSheet.DisplayRightToLeft = True

        For i = 0 To DataGridView1.RowCount - 1

            Application.DoEvents()

            For j As Integer = 1 To DataGridView1.Columns.Count

                xlWorkSheet.Cells(i + 2, j) = DataGridView1.Rows(i).Cells(j - 1).Value.ToString

            Next

        Next

        xlWorkSheet.DisplayRightToLeft = True

        xlWorkSheet.Cells.HorizontalAlignment = RightToLeft

        '............................................مس�  �ر Desktop...........................................  ...........

        Dim aa As String = Environment.GetFolderPath(Environment.SpecialFolde  r.Desktop)

        '.................................................  .................................................

        xlWorkSheet.DisplayRightToLeft = True

        xlWorkSheet.SaveAs(aa.ToString + "ha.xlsx")

        xlWorkBook.Close()

        xlApp.Quit()

        MsgBox("کاربر گرامی فایل مورد نظر ذخیره شد", MsgBoxStyle.Information, "هشدار")

        Me.Close()

    End Sub

سلام
دوستان جهت عکس این قضیه یعنی از اکسل به دیتا گرید ویو رو چطوری میشه انجام داد؟