2022年ASP导出到Excel代码[参 .pdf

《2022年ASP导出到Excel代码[参 .pdf》由会员分享，可在线阅读，更多相关《2022年ASP导出到Excel代码[参 .pdf（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、ASP 导出到Excel代码一、使用OWC 什么是 OWC？OWC 是 Office Web Compent 的缩写，即Microsoft 的 Office Web 组件，它为在Web 中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet 环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如 IE5 和 Office 2000），那么就有能力利用Office Web 组件提供一个交互式图形开发环境。这种模式下，客户端工作站将在整个任务中分担很大的比重。%Option Explicit Class ExcelGen Private objSpreadsheet Pr

2、ivate iColOffset Private iRowOffset Sub Class_Initialize()Set objSpreadsheet=Server.CreateObject(OWC.Spreadsheet)iRowOffset=2 iColOffset=2 End Sub Sub Class_Terminate()Set objSpreadsheet=Nothing Clean up End Sub Public Property Let ColumnOffset(iColOff)If iColOff 0 then iColOffset=iColOff Else iColO

3、ffset=2 End If End Property Public Property Let RowOffset(iRowOff)If iRowOff 0 then iRowOffset=iRowOff Else iRowOffset=2 End If End Property Sub GenerateWorksheet(objRS)Populates the Excel worksheet based on a Recordsets contents Start by displaying the titles If objRS.EOF then Exit Sub Dim objField

4、,iCol,iRow iCol=iColOffset iRow=iRowOffset For Each objField in objRS.Fields objSpreadsheet.Cells(iRow,iCol).V alue=objField.Name 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 7 页 -objSpreadsheet.Columns(iCol).AutoFitColumns 设置 Excel 表里的字体objSpreadsheet.Cells(iRow,iCol).Font.Bold=True objSpreadsheet.Cells(iRow,iCo

5、l).Font.Italic=False objSpreadsheet.Cells(iRow,iCol).Font.Size=10 objSpreadsheet.Cells(iRow,iCol).Halignment=2 居中iCol=iCol+1 Next objField Display all of the data Do While Not objRS.EOF iRow=iRow+1 iCol=iColOffset For Each objField in objRS.Fields If IsNull(objField.V alue)then objSpreadsheet.Cells(

6、iRow,iCol).V alue=Else objSpreadsheet.Cells(iRow,iCol).V alue=objField.V alue objSpreadsheet.Columns(iCol).AutoFitColumns objSpreadsheet.Cells(iRow,iCol).Font.Bold=False objSpreadsheet.Cells(iRow,iCol).Font.Italic=False objSpreadsheet.Cells(iRow,iCol).Font.Size=10 End If iCol=iCol+1 Next objField ob

7、jRS.MoveNext Loop End Sub Function SaveWorksheet(strFileName)Save the worksheet to a specified filename On Error Resume Next Call objSpreadsheet.ActiveSheet.Export(strFileName,0)SaveWorksheet=(Err.Number=0)End Function End Class Dim objRS Set objRS=Server.CreateObject(ADODB.Recordset)objRS.Open SELE

8、CT*FROM xxxx,Provider=SQLOLEDB.1;Persist Security Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;Dim SaveName SaveName=Request.Cookies(savename)(name)Dim objExcel Dim ExcelPath ExcelPath=Excel&SaveName&.xls Set objExcel=New ExcelGen 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 7 页 -obj

9、Excel.RowOffset=1 objExcel.ColumnOffset=1 objExcel.GenerateWorksheet(objRS)If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)then Response.Write html body bgcolor=gainsboro text=#000000已保存为Excel 文件.a href=&server.URLEncode(ExcelPath)&下载/a Else Response.Write 在保存过程中有错误!End If Set objExcel=Nothing ob

10、jRS.Close Set objRS=Nothing%二、用 Excel 的 Application 组件在客户端导出到Excel 或 Word 注意：两个函数中的“data“是网页中要导出的table 的 id input type=hidden name=out_word onclick=vbscript:buildDoc value=导出到word class=notPrint input type=hidden name=out_excel onclick=AutomateExcel();value=导出到excel class=notPrint 导出到 Excel 代码SCRIPT

11、 LANGUAGE=javascript!-function AutomateExcel()/Start Excel and get Application object.var oXL=new ActiveXObject(Excel.Application);/Get a new workbook.var oWB=oXL.Workbooks.Add();var oSheet=oWB.ActiveSheet;var table=document.all.data;var hang=table.rows.length;var lie=table.rows(0).cells.length;/Add

12、 table headers going cell by cell.for(i=0;i hang;i+)for(j=0;j lie;j+)oSheet.Cells(i+1,j+1).value=table.rows(i).cells(j).innerText;oXL.Visible=true;oXL.UserControl=true;名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 7 页 -/-/SCRIPT 导出到 Word 代码script language=vbscript Sub buildDoc set table=document.all.data row=table

13、.rows.length column=table.rows(1).cells.length Set objWordDoc=CreateObject(Word.Document)objWordDoc.Application.Documents.Add theTemplate,False objWordDoc.Application.Visible=True Dim theArray(20,10000)for i=0 to row-1 for j=0 to column-1 theArray(j+1,i+1)=table.rows(i).cells(j).innerTEXT next next

14、objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(综 合 查 询 结 果集)/显示表格标题objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore()Set rngPara=objWordDoc.Application.ActiveDocument.Paragraphs(1).Range With rngPara.Bold=True/将标题设为粗体.ParagraphFormat.Alignment=1/将标题居中.

15、Font.Name=隶书 /设定标题字体.Font.Size=18/设定标题字体大小End With Set rngCurrent=objWordDoc.Application.ActiveDocument.Paragraphs(3).Range Set tabCurrent=ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)for i=1 to column objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.I

16、nsertAfter theArray(i,1)objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1 next For i=1 to column For j=2 to row objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 7 页 -objWord

17、Doc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1 Next Next End Sub/SCRIPT 三、直接在IE 中打开，再存为EXCEL 文件把读出的数据用table格式，在网页中显示出来，同时，加上下一句即可把EXCEL 表在客客户端显示。%response.ContentType=application/vnd.ms-excel%注意：显示的页面中，只把table输出，最好不要输出其他表格以外的信息。四、导出以半角逗号隔开的csv 用 fso 方法生成文

18、本文件的方法，生成一个扩展名为csv 文件。此文件，一行即为数据表的一行。生成数据表字段用半角逗号隔开。（有关fso 生成文本文件的方法，在此就不做介绍了）CSV 文件介绍（逗号分隔文件）选择该项系统将创建一个可供下载的CSV 文件；CSV 是最通用的一种文件格式，它可以非常容易地被导入各种PC 表格及数据库中。请注意即使选择表格作为输出格式，仍然可以将结果下载CSV 文件。在表格输出屏幕的底部，显示有CSV 文件 选项，点击它即可下载该文件。如果您把浏览器配置为将您的电子表格软件与文本（TXT）/逗号分隔文件（CSV）相关联，当您下载该文件时，该文件将自动打开。下载下来后，如果本地已安装EX

19、CEL，点击此文件，即可自动用EXCEL 软件打开此文件。1.前言报表打印通常是管理信息系统中的一个重要模块，而Excel 凭借它功能强大、应用灵活、通用性强等的优势在报表打印中获得了广泛的应用。最初的管理信息系统基本上是采用客户机/服务器（C/S）模式开发的，但随着WWW的广泛应用，目前的管理信息系统已经逐渐开始从C/S 模式向浏览器/服务器（B/S）模式转变。B/S 模式具有传统C/S 模式所不及的很多特点，如更加开放、与软硬件无关、应用扩充和系统维护升级方便等等，目前已成为企业网上首选的计算模式，原先在 C/S 下的很多软件都开始移植到B/S 模式下。由于 B/S 模式的特殊性，在 C/

20、S 下相对较易实现的Excel 报表打印功能在 B/S 下却成为一个难点。本文根据在实际的项目中总结的经验，以asp为例，给出了一个较好的通用方法。2.功能实现为了说明问题，这里举一个例子。系统平台是Windows 2000+SQL Server 2000+IIS 5.0+ASP 3，报表采用的是Excel，要求按照给定的报表格式生成图书销售统计的报表，并能够打印。2.1 Excel 报表模板的制作首先根据给定的报表格式，制作一个Excel 模板（就是要打印的报表的表格），当然其中需要从数据库中动态统计生成的数据留着空白。这个报表先在Excel 中画好，然后保存为模板，存放在起来，这里为tes

21、tbook1.xlt。2.2 Excel 报表的生成与打印名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 7 页 -这里采用了Excel 的 application 组件，该组件在安装Excel 时安装到系统中。我们的操作也都是针对该组件。(1)建立 Excel.Application 对象set objExcel=CreateObject(Excel.Application)(2)打开 Excel 模板objExcel.Workbooks.Open(server.mappath(test)&book1.xlt)打开 Excel 模板objExcel.Sheets(1).sele

22、ct 选中工作页set sheetActive=objExcel.ActiveWorkbook.ActiveSheet(3)Excel 的常规添加操作例如 sheetActive.range(g4).value=date()这里添加的是时间，当然也可以是你指定的任何数据(4)Excel 中添加数据库中的纪录这里假设已有一个数据集adoRset，存放由Sql 操作生成的统计数据。num=7 从 Excel 的第七行开始do until adoRset.EOF 循环直至数据集中的数据写完strRange=d&num&:f&num 设定要填写内容的单元区域sheetActive.range(strR

23、ange).font.size=10 设定字体大小sheetActive.range(strRange).WrapText=false 设定文字回卷sheetActive.range(strRange).ShrinkToFit=true 设定是否自动适应表格单元大小sheetActive.range(strRange).value=array(adoRset(bookid),adoRset(bookname),adoRset(author)把数据集中的数据填写到相应的单元中num=num+1 adoRset.MoveNext loop(5)Excel 临时报表文件的保存及处理实际运行中应该注意

24、每次一个用户进行报表打印时都采用一个临时的Excel 文件，而不是硬性规定文件名，因为如果用固定的文件名的话，只有第一次生成是成功的，后面的操作都会因为已存在同名文件而导致失败。所以我们需要每次都产生一个临时的而且不重复的文件名，这里可以采用自定义的getTemporaryFile()函数由来生成，然后存放在变量filename 中,用变量 filepos 表示这些临时文件的路径。此外如果这些临时文件不处理的话久而久之会成为文件垃圾，因此在每个用户提交Excel 报表打印请求时要先删除临时目录下所有原先产生的临时打印文件。临时文件的处理主要代码如下：function getTemporaryF

25、ile(myFileSystem)dim tempFile,dotPos tempFile=myFileSystem.getTempName dotPos=instr(1,tempFile,.)getTemporaryFile=mid(tempFile,1,dotPos)&xls end function set myFs=createObject(scripting.FileSystemObject)filePos=server.mappath(test)&tmp 要存放打印临时文件的临时目录fileName=getTemporaryFile(myFs)取得一个临时文件名myFs.Delet

26、eFile filePos&*.xls 删除该目录下所有原先产生的临时打印文件set myFs=nothing 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 7 页 -Excel 临时文件的保存代码为：objExcel.ActiveWorkbook.saveas filePos&filename(6)退出 Excel 应用objExcel.quit set objExcel=Nothing(7)Excel 报表的打印前面的步骤已经生成了Excel 报表，下一步进行打印，采用的策略可以有两种：方案一：提供上面生成的Excel 报表临时文件链接给用户，用户可以直接点击在浏览器中打开

27、 Excel 报表并通过浏览器的打印功能进行打印，也可以点击右键然后另存到本地后再作打印等相关处理。方案二：生成 Excel 报表后直接在客户端加载到浏览器，当然在没有完全加载时应该提示“正在加载，请等待”等字样。2.3 系统配置与注意事项虽然以上代码很简单，但实际应用不当经常会出现错误，所以下面要讲到的系统配置和注意事项非常关键。(1)千万要保证以上代码输入的正确性，否则一旦运行错误，Excel 对象会滞留内存，难以消除，导致下一次调用时速度狂慢，并产生内存不可读写的Windows 错误。这时的解决方法就是注销当前用户，如果还不行，就只能Reset了。(2)一定要设置好负责打印功能的asp文

28、件的权限。方法是：在IIS 管理中，选择该asp 文件，右键然后选“属性”/“文件安全性”/匿名访问和验证控制“，在这里IIS 默认是匿名访问，应该选择验证访问（这里基本验证和集成Windows 验证两种方式均可，但前者不够安全），这一点无比重要，否则应用当中会出错的。(3)有的时候报表分为多页，而且我们希望每一页有相同的表头，要求表头每页都自动打印，可以在Excel 模板中进行设置。方法如下：选择菜单文件/页面设置/工作表，然后在 顶端标题行 输入你表头的行数(如：表头为1-3 行即填入：$1：$3)。3总结以上我们给出了一个采用ASP 写的在 B/S 模式下实现EXCEL 报表的生成与打印的例子，在实际当中已经得到了良好的应用。事实也证明，这个例子的代码虽然不难写，但一定要注意系统的配置，这也是无数次失败后得出的经验。-资料引用:http:/ 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 7 页 -