Dim dt As DataTable = DirectCast(Me.DataGrid1.DataSource, DataTable)
 
            Dim excel As Object = CreateObject("Excel.Application")
            Dim oBook As Object = excel.Workbooks.Add("C:\neu.xls")
            Dim xlBlatt = oBook.Worksheets(1)
 
            excel.Visible = True
 
            For n As Integer = 0 To dt.Columns.Count - 1
                For a As Integer = 0 To dt.Rows.Count - 1
 
                    CType(xlBlatt.Cells, Excel.Range)(a + 3, n + 1).Value = _
                      dt.Rows(a).Item(n)
                    'MessageBox.Show(CType(xlBlatt.Cells, Excel.Range)(a + 3, n 
                    ' + 1).Value)
                Next
            Next