Dim xlApp As New Microsoft.Office.Interop.Excel.Application
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add
xlBook.Worksheets(1).name = "desirename"
xlBook.Worksheets(1).select()
Dim k As Integer = 5
Dim rngGridE As Integer = k
For r As Integer = 0 To gv.Rows.Count - 1
xlApp.ActiveSheet.cells(k, 1) = "" & gv.Rows(r).Cells(0).Text
xlApp.ActiveSheet.cells(k, 1).font.name = "Calibri"
xlApp.ActiveSheet.cells(k, 2) = "" & gv.Rows(r).Cells(1).Text
xlApp.ActiveSheet.cells(k, 3) = "asasadsf"
xlApp.Cells.EntireColumn.AutoFit()
k += 1
next
similarly u do for ..
xlBook.Worksheets(2).name = "desirename"
xlBook.Worksheets(2).select()
Sukesh.net, if this helps please login to Mark As Answer. | Alert Moderator