ASP.NET环境下，VB.NET语言，数据保存EXCEL模板操作

 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"

        '另存为结果表
        xlsWorkBook.SaveAs(strSaveFile)
        '关闭
        xlsWorkBook.Close()
        xlsApp.Quit()
        xlsApp = Nothing
        xlsWorkBook = Nothing
        xlsSheet = Nothing
        xlsRange = Nothing
        xlsSrcRange = Nothing
        GC.Collect()