高手都在晚上出现~ 导出到excel模板的问题

Question

我是楼主，我在网上找了篇VB.NET操作 ，但我怎么找不到Excel.Application这样的类，没有智能敢于，我添加了Microsoft.Office.Tools.Excel 的NET 引用，但点到Microsoft.Office.Tools.Excel.的时候就没有Application这个类，是我哪操作错误了 ？Dim strOpenFile,strSaveFile  as String 
 Dim xlsApp As New Excel.Application
 Dim xlsWorkBook As Excel.Workbook
 Dim xlsSheet As Excel.Worksheet
 Dim xlsRange As Excel.Range
 Dim xlsSrcRange As Excel.Range strOpenFile = Server.MapPath("..\ReportFormat\test.xls")
        strSaveFile = Server.MapPath("..\filetemp\testtarget.xls")
        xlsApp.Application.DisplayAlerts = False
        xlsApp.Visible = False        '打开格式文件
        xlsWorkBook = xlsApp.Workbooks.Open(strOpenFile)
        xlsSheet = xlsWorkBook.Sheets(1)
        '根据需要的sheet数拷贝格式
        xlsSheet.Copy(, xlsWorkBook.Sheets(1))
        '获取需要填入数据的sheet
        xlsSheet = xlsWorkBook.Sheets(1)
        '选择拷贝源的行的下一行
        xlsRange = xlsSheet.Rows(3)
        '插入一行
        xlsRange.Insert()
        xlsRange.Insert()
        '选择拷贝源
        xlsSrcRange = xlsSheet.Rows(2)
        '把源拷贝到刚插入的行
        xlsSrcRange.Copy(xlsSheet.Rows(3))
        xlsSrcRange.Copy(xlsSheet.Rows(4))        '进行数据填充,实际代码根据记录数使用循环
        xlsSheet.Cells(2, 1) = "A"
        xlsSheet.Cells(2, 2) = 300
        xlsSheet.Cells(3, 1) = "B"
        xlsSheet.Cells(3, 2) = 400
        xlsSheet.Cells(4, 1) = "C"
        xlsSheet.Cells(4, 2) = 500        'sheet重命名
        xlsSheet = xlsWorkBook.Sheets(1)
        xlsSheet.Name = "200501"
        xlsSheet = xlsWorkBook.Sheets(2)
        xlsSheet.Name = "200502"