請問如何在vs2010中用vb創建壹個excel文件？

Dim objExcel As Excel.Application

Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")

Set objWorkBook = objExcel.Workbooks.Add()

objExcel.Visible = False

Dim objSheet As Excel.Worksheet

Set objSheet = objExcel.Worksheets("sheet1")

objSheet.Cells(1,1) = "姓名" '對單元格賦值

objSheet.Cells(1,2) = Date

objSheet.Cells(1,3) = Time

objWorkBook.SaveAs App.Path & "\a.xls" '保存

objWorkBook.Close

objExcel.Quit

Set objSheet = Nothing

Set objWorkBook = Nothing

Set objExcel = Nothing