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()