欢迎来到天天文库
浏览记录
ID:22369908
大小:63.50 KB
页数:7页
时间:2018-10-28
《asp导出excel数据的四种方法--》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、ASP导出Excel数据的四种方法>>一、使用Oicrosoft的OfficenOffset(iColOff)IfiColOff>0theniColOffset=iColOffElseiColOffset=2EndIfEndPropertyPublicPropertyLetRoobjField,iCol,iRoeobjSpreadsheet.Columns(iCol).AutoFitColumns"设置Excel表里的字体objSpreadsheet.Cells(iRoent=2"居中iCol=iCol+1Next"objField"DisplayallofthedataDons
2、objSpreadsheet.Cells(iRow,iCol).Font.Bold=FalseobjSpreadsheet.Cells(iRow,iC1234下一页>>>>这篇文章来自..,。ol).Font.Italic=FalseobjSpreadsheet.Cells(iRoe)"SavetheeOnErrorResumeNextCallobjSpreadsheet.ActiveSheet.Export(strFileName,0)Savexxxx","Provider=SQLOLEDB.1;PersistSecurityInfo=True;UserID=xxxx;Pass
3、SaveNameSaveName=Request.Cookies("savename")("name")DimobjExcelDimExcelPathExcelPath="Excel"SaveName".xls"SetobjExcel=NenOffset=1objExcel.GenerateapPath(ExcelPath))then"Response.l><bodybgcolor="gainsboro"text="#000000">已保存为Excel文件.<ahref=""server.URLEncode(ExcelPath)"">下载</a>"ElseResponse.e=
4、"out_e="out_excel"onclick="AutomateExcel();"value="导出到excel"class="notPrint">导出到Excel代码<SCRIPTLANGUAGE="javascript"><!--functionAutomateExcel(){//StartExcelandgetApplicationobject.varoXL=neent.all.data;varhang=table.rows.length;varlie=table.rows(0).cells.length;// 上一页1234下一页>>>>这篇文章来自..,。
5、;Addtableheadersgoingcellbycell.for(i=0;i<hang;i++){for(j=0;j<lie;j++){oSheet.Cells(i+1,j+1).value=table.roent.all.dataron=table.roent")objents.AddtheTemplate,FalseobjtheArray(20,10000)fori=0toron-1theArray(j+1,i+1)=table.roent.Paragraphs.Add.Range.InsertBefore("综合查询结果集")//显示表格标题objent.Paragr
6、aphs.Add.Range.InsertBefore("")SetrngPara=objent.Paragraphs(1).Rangeat.Alignment=1//将标题居中.Font.Name="隶书"//设定标题字体.Font.Size=18//设定标题字体大小Endent.Paragraphs(3).RangeSettabCurrent=Objent.Tables.Add(rngCurrent,ron)fori=1tocolumnobjent.Tables(1).Roent.Tables(1).Roat.alignment=1nextFori=1tocolumnForj
7、=2toroent.Tables(1).Roent.Tables(1).Roat.alignment=1NextNextEndSub</SCRIPT>三、直接在IE中打开,再存为EXCEL文件 把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把EXCEL表在客客户端显示。<%response.ContentType="application/vnd.ms-excel"%> 注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。四、
此文档下载收益归作者所有