ASP打印输出EXCEL格式

发布网友发布时间：2022-04-20 21:16

共1个回答

热心网友时间：2023-09-08 22:50

　　众所周知 WEB上的打印是比较困难的常见的WEB上打印的方法大概有三种　　　　直接利用IE的打印功能一般来说这种方法可以做些扩展而不是单单的调用javascript:print()这样简单比如可以使用如下代码　　　　＜OBJECT　　id=WebBrowser classid=CLSID: F A D A B C FD A height= width= ＞　　＜/OBJECT＞　　＜input　　type=button value=打印 onclick=document all WebBrowser ExecWB( )＞　　＜input　　type=button value=直接打印 onclick=document all WebBrowser ExecWB( )＞　　＜input　　type=button value=页面设置 onclick=document all WebBrowser ExecWB( )＞　　＜input　　type=button value=打印预览 onclick=document all WebBrowser ExecWB( )＞　　　　这种方法可以适用于简单的数据打印对系统要求不高但不足之处在于可以控制的能力比较差比如处理分页等问题　　　　利用水晶报表或其他第三方工具如微软的Reporting service 水晶报表或其他第三方控件的打印一般是导出到Excel WORD PDF等再进行打印的效果比较好但编程比较复杂控制起来也不大方便而且这些工具都是要收费的　　　　将数据库的数据或要打印的内容导出到Excel Word中去打印使用这种方法可以在服务端或者客户端进行在服务端使用的话要求服务端要安装Word Excel 在客户端使用的话要求客户端在IE的安全设置上有一定要求使用这种方法可适应性比较强控制较好本文将以在ASP NET中使用Excel为例子介绍如何将数据导出到Excel的几种方法　　　　首先先介绍在服务端使用Excel的方法要在服务器端使用Excel 必须要求服务器端安装Excel 并且要求一定的访问权限比如需要添加＜identity impersonate= true /＞到nfig中在本文中要给予WEB目录可写的权限　　　　接下来使用VS NET 新建一个VB NET的工程并添加引用由于我们要使用的是Excel 所以添加一个关于的应用这里添加的是Microsoft Excel Object Library 之后添加的代码如下　　　　Imports System Runtime InteropServices Marshal　　Imports Office　　Private Sub Page_Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load　　以方式处理Excel　　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　　定义一个datatable　　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　　定义一个新的工作簿　　oBooks = oExcel Workbooks　　oBooks Open(Server MapPath(Request ApplicationPath) & \MyTemplate xls ) oBook = oBooks Item( )　　oSheets = oBook Worksheets　　oSheet = CType(oSheets Item( ) Excel Worksheet)　　　　命名该sheet　　oSheet Name = First Sheet 　　oCells = oSheet Cells　　调用mpdata过程将数据导入到Excel中去　　DumpData(dt oCells)　　保存　　oSheet SaveAs(sFile)　　oBook Close()　　　　退出Excel 并且释放调用的资源　　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)　　End Sub　　　　将DATATABLE的内容导出到Excel的单元格中去　　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　　　　输出列标题　　For iCol = To dt Columns Count 　　oCells( iCol + ) = dt Columns(iCol) ToString　　Next　　　　将数据导出到相应的单元格　　For iRow = To dt Rows Count 　　dr = dt Rows Item(iRow)　　ary = dr ItemArray　　For iCol = To UBound(ary)　　oCells(iRow + iCol + ) = ary(iCol) ToString　　Response Write(ary(iCol) ToString & vbTab)　　Next　　Next　　End Function　　End Class　　　　在上面的代码中首先先定义了一些关于Excel的对象如application workbook sheets sheet等这些都是在使用Excel的对象时必不可少的之后我们事先先定义了一个Excel的模版文件并且用Excel先打开这个模版文件再调用一个自定义的过程mpdata 在这个自定义的过程中将datatable中的数据逐一导入到Excel的单元格中去读者自己可以慢慢体会下上面的代码中是如何将datatable中的数据导出到Excel中去的程序运行后可以在当前的工作目录下生成名为myExcel xls的Excel文件如下图　　　　　大家可能觉得上面的代码比较复杂因为上面对于对打印要求比较高的应用是十分有效的如果只是单单对数据进行导出还可以使用简单的格式比如使用以下的代码　　　　Private Sub Page_Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load　　Dim dt As DataTable = CType(Application Item( MyDataTable ) DataTable)　　　　Response ContentType = application/ms Excel 　　　　Response AddHeader( Content Disposition inline;filename=test xls )　　　　Response Write(ConvertDtToTDF(dt))　　End Sub　　　　Private Function ConvertDtToTDF(ByVal dt As DataTable) As String　　Dim dr As DataRow ary() As Object i As Integer　　Dim iCol As Integer　　　　输出列标题　　For iCol = To dt Columns Count 　　Response Write(dt Columns(iCol) ToString & vbTab)　　Next　　Response Write(vbCrLf)　　　　输出数据　　For Each dr In dt Rows　　ary = dr ItemArray　　For i = To UBound(ary)　　Response Write(ary(i) ToString & vbTab)　　Next　　Response Write(vbCrLf)　　Next　　End Function　　End Class　　　　在上面的代码中首先将浏览器的输出类型设置为application/ms Excel 并设置Excel的输出类型是在浏览器中输出默认的名字为test xls 之后将调用自定义的过程该自定义的过程将一个datatable里的数据以字符串流的形式输出其中每个datatable里的数据之间以TAB制表符分隔最后再输出到浏览器输出效果如下图　　　　　上面的这种方法表现的形式比较简单但也可以满足数据导出的基本要求那如果要进一步修饰一下的话要如何做呢？这里提供一个方法可以将要导出的数据先绑定到datagrid 然后再打印该datagrid 这时就可以对要打印出来的datagrid进行格式化设置datagrid的format等属性代码如下　　　　Protected Overrides Sub Render(ByVal writer As System Web UI HtmlTextWriter)　　Dim dt As DataTable = CType(Application Item( MyDataTable ) DataTable)　　　　Response ContentType = application/ms Excel 　　　　Response AddHeader( Content Disposition inline;filename=test xls )　　　　DataGrid DataSource = dt　　DataGrid DataBind()　　DataGrid RenderControl(writer)　　End Sub　　　　打印出来的效果如下图　　　　如果要转到Word里面打印的话也同样可以用上面的方法只需要将其中的代码改成　　　　Response ContentType = application/ms word 　　Response AddHeader( Content Disposition inline;filename=test doc )　　　　最后来看一下如何调用客户端的Excel进行打印就是让客户一点击打印的按钮就可以自动打开客户端的Excel 将要打印的内容导入要实现这样的效果必须要求客户端的IE浏览器设置中在其中的安全本地Intranet 自定义级别中将下载未签名ACTIVX 中设置为启动或提示代码如下　　　　＜script language= vbscript ＞　　Sub exportbutton_onclick　　Dim sHTML oExcel oBook　　SHTML = em( DataGrid ) outer　　Set oExcel = CreateObject( Excel Application )　　Set oBook = oExcel Workbooks Add　　oBook HTMLProject HTMLProjectItems( Sheet ) Text = sHTML　　oBook HTMLProject lishixin/Article/program/net/201311/13741