Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass
Dim Book As Microsoft.Office.Interop.Excel.Workbook
Dim Sheet As Microsoft.Office.Interop.Excel.Worksheet
Book = excel.Workbooks.Add()
Sheet = Book.ActiveSheet()
Dim dt As System.Data.DataTable = DataSet1.Customers
Dim dc As System.Data.DataColumn
Dim dr As System.Data.DataRow
Dim colIndex As Integer = 0
Dim rowIndex As Integer = 0
For Each dc In dt.Columns
colIndex = colIndex + 1
excel.Cells(1, colIndex) = dc.ColumnName
Next
For Each dr In dt.Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each dc In dt.Columns
colIndex = colIndex + 1
excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
Next
Next
Sheet.Columns.AutoFit()
Dim strFileName As String = "C:\taher.xls"
Dim blnFileOpen As Boolean = False
Try
Dim fileTemp As System.IO.FileStream = System.IO.File.OpenWrite(strFileName)
fileTemp.Close()
Catch ex As Exception
blnFileOpen = False
End Try
If System.IO.File.Exists(strFileName) Then
System.IO.File.Delete(strFileName)
End If
Book.SaveAs(strFileName)
excel.Workbooks.Open(strFileName)
excel.Visible = True5

Dim dt As System.Data.DataTable = DataSet1.Customers

Dim dt As System.Data.DataTable = DataSet1.Tables(0)