在asp.net中使用excel模板

asp.net|excel|模板

Imports System.Runtime.InteropServices.Marshal

Then, replace the default Page_Load event with the code in Figure 1.

Private Sub Page_Load(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles MyBase.Load

Dim oExcel As New Excel.Application()

Dim oBooks As Excel.Workbooks, oBook As Excel.Workbook

Dim oSheets As Excel.Sheets, oSheet As Excel.Worksheet

Dim oCells As Excel.Range

Dim sFile As String, sTemplate As String

Dim dt As DataTable = _

CType(Application.Item("MyDataTable"), DataTable)

sFile = Server.MapPath(Request.ApplicationPath) & _

"\MyExcel.xls"

sTemplate = Server.MapPath(Request.ApplicationPath) & _

"\MyTemplate.xls"

oExcel.Visible = False : oExcel.DisplayAlerts = False

'Start a new workbook

oBooks = oExcel.Workbooks

oBooks.Open(Server.MapPath(Request.ApplicationPath) & _

"\MyTemplate.xls") 'Load colorful template with chart

oBook = oBooks.Item(1)

oSheets = oBook.Worksheets

oSheet = CType(oSheets.Item(1), Excel.Worksheet)

oSheet.Name = "First Sheet"

oCells = oSheet.Cells

DumpData(dt, oCells) 'Fill in the data

oSheet.SaveAs(sFile) 'Save in a temporary file

oBook.Close()

'Quit Excel and thoroughly deallocate everything

oExcel.Quit()

ReleaseComObject(oCells) : ReleaseComObject(oSheet)

ReleaseComObject(oSheets) : ReleaseComObject(oBook)

ReleaseComObject(oBooks) : ReleaseComObject(oExcel)

oExcel = Nothing : oBooks = Nothing : oBook = Nothing

oSheets = Nothing : oSheet = Nothing : oCells = Nothing

System.GC.Collect()

Response.Redirect(sFile) 'Send the user to the file

End Sub

'Outputs a DataTable to an Excel Worksheet

Private Function DumpData(ByVal _

dt As DataTable, ByVal oCells As Excel.Range) As String

Dim dr As DataRow, ary() As Object

Dim iRow As Integer, iCol As Integer

'Output Column Headers

For iCol = 0 To dt.Columns.Count - 1

oCells(2, iCol + 1) = dt.Columns(iCol).ToString

Next

'Output Data

For iRow = 0 To dt.Rows.Count - 1

dr = dt.Rows.Item(iRow)

ary = dr.ItemArray

For iCol = 0 To UBound(ary)

oCells(iRow + 3, iCol + 1) = ary(iCol).ToString

Response.Write(ary(iCol).ToString & vbTab)

Next

Next

End Function

时间: 2016-02-06
Tags: excel, nothing

在asp.net中使用excel模板的相关文章

在ASP.NET中使用EXCEL之权限设置

在ASP.NET中使用EXCEL,首先需要对COM组件的权限进行设置.如果未设置权限,则会报访问拒绝的错误.详细错误信息通常如下: 说明: 执行当前 Web 请求期间,出现未处理的异常.请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息. 异常详细信息: System.UnauthorizedAccessException: 拒绝访问. ASP.NET 未被授权访问所请求的资源.请考虑授予 ASP.NET 请求标识访问此资源的权限.ASP.NET 有一个在应用程序没有模拟时使

在ASP程序中打印Excel表格的新方法

 在ASP程序中打印Excel报表的新方法 目前,B/S模式(浏览器/服务器模式)成为企业网上首选的计算模式.由于B/S模式的特殊性,在C/S下相对较易实现的Excel报表打印功能在B/S下却成为一个难点.本人通过研究写了一个基于ASP程序的打印Excel报表的程序.本程序的特点是无须任何组件.   Print.asp ------------------------------------------------ <html><title>打印Excel报表</title&

asp.net中数据excel导入,并马上显示出来。另外还可以导出,求完整代码谢谢

问题描述 asp.net中数据excel导入,并马上gridview显示出来.另外还可以导出为excel,本人刚刚才学习asp.net.求完整代码谢谢. 解决方案 解决方案二:我有,不过贴代码挺麻烦的,我可以通过邮件传给你解决方案三: 解决方案四:能给我也发一份吗?我也正在找这个.谢谢啊!邮箱:[email protected]引用1楼lyy19901101的回复: 我有,不过贴代码挺麻烦的,我可以通过邮件传给你 解决方案五:谢谢了.我的邮箱[email protected]解决方案六:yefeng858

在ASP程序中打印Excel报表的新方法

excel|程序|打印 目前,B/S模式(浏览器/服务器模式)成为企业网上首选的计算模式.由于B/S模式的特殊性,在C/S下相对较易实现的Excel报表打印功能在B/S下却成为一个难点.本人通过研究写了一个基于ASP程序的打印Excel报表的程序.本程序的特点是无须任何组件. Print.asp------------------------------------------------ <html><title>打印Excel报表</title><%'控制脚本

ASP程序中输出Excel文件实例

在asp中利用excel的一个方法是将excel文件作为一个数据库进行链接,然后的操作和对access数据库操作类似.但是这个方法不是总能有用的,应为excel不是关系型的数据库.对于一个固定格式,这个格式里有复杂的单元格合并,边框线条样式,还有图案,单元格之间还有公式关系等等的,我想最容易理解的就是在后台打开一个已有设定好模板的文件,然后在需要的地方插入数据,保存,输出... ... 这里提到的这种方法是直接建立一个excel对象,在后台可以更方便的对excel文档进行各种操作. 服务器端还必

在ASP.NET中使用EXCEL之三 写Excel文件

asp.net|excel   在按钮的click事件中输入如下代码,即可以实现写入Excel文件. 写Excel文件时,还要把项目文件夹的权限进行设置,对iuser_machine用户有可写的权限. private void Button1_Click(object sender, System.EventArgs e)  {string filename="";   Excel.ApplicationClass oExcel;   oExcel = new Excel.Applic

ASP.Net中的ListView模板与绑定实现代码

在微软后面的WPF中ListView是一个很方便地控件,我在后面的WPF开发中使用了很多模板的定义,有ListBox.GridView以及ListView,总之各有千秋,但是ListView用的多一些.因为ListView的样式比较漂亮,呵呵,我是个视觉系,有些懒惰,所以采用默认的样式,只是定义模板而已,所以选择ListView比较多,废话不多说了,直接上代码吧.其实也没什么太多可说的,做的多了自然就理解意思了.  代码如下 复制代码 <asp:ListView ID="lv_Projec

在ASP页面中插入excel文件(转)

excel|插入|页面 <%set xlApp = Server.CreateObject("Excel.Application")'使服务端不出现Excel窗口xlApp.Visible = false'建立一个worksheetset myWorkbook = xlApp.Workbooks.Addset myWorksheet = myWorkbook.Worksheets(1)'建立表头myWorksheet.Range("A1").Value = '

在asp.net中调用Excel 文件

asp.net|excel vb.net源代码<%@ Page Language="VB" %><%@ Import Namespace="System.Data" %><%@ Import Namespace="System.Data.Oledb" %> <script language="VB" runat="server">Sub Page_Load(s