Add reference to MS Excel library in Project>References
than use this code
VB Code:
  1. Dim objExcelApp As Excel.Application,objExcelWb as Excel.Workbook

  2. Set objExcelApp=New Excel.Application

  3. 'objExcelApp.Visible=True

  4. Set objExcelWb=objExcelApp.Workbooks.Add

  5. objExcelWb.Sheets(1).Cells(1,1).Value=Now

  6. objExcelWb.SaveAs "C:\timewb.xls"

  7. objExcelWb.Close

  8. objExcelApp.Quit

  9. Set objExcelWb=Nothing

  10. Set objExcelApp=Nothing