ASP.NET环境下,VB.NET语言,数据保存EXCEL模板操作
2009-06-11 09:03
555 查看
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()
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()
相关文章推荐
- ASP.NET环境下,VB.NET语言,数据保存EXCEL模板操作
- asp.net操作Excel(向excel模板添加数据)
- ASP.NET对Excel单元格进行操作并且插入数据
- ASP.NET MVC 环境下CKeditor 的配置以及用jQuery进行数据存取操作
- 在ASP.NET中将dataset数据保存到excel,GridView导出到excel
- 将从SQL数据库中查询出来的数据导出为Excel文档ASP.NET(VB)?
- [NET][C#]操作Excel,套用模板并对数据进行分页
- ASP.NET之Excel下载模板、导入、导出操作
- asp.net操作Excel和不经保存读取csv
- ASP.NET GridView保存数据到Excel
- 在ASP.NET 2.0中操作数据:使用FormView 的模板
- DATASET数据保存到EXCEL文件(asp.net)
- asp.net(C#)套用模板操作Excel
- asp.net DataSet数据写入Excel保存自定义名称到默认文件夹内
- VB.NET向Excel写入并保存数据
- asp.net(C#)套用模板操作Excel
- asp.net(C#)套用模板操作Excel
- ASp.net 操作 Excel 分页导出数据
- 在ASP.NET 2.0中操作数据:使用FormView 的模板
- 在ASP.NET 2.0中操作数据之十四:使用FormView 的模板