ASP 生成xls excle

最新推荐文章于 2022-01-17 15:52:17 发布

转载最新推荐文章于 2022-01-17 15:52:17 发布 · 84 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/netact/archive/2011/06/13/2079952.html

本文介绍了一种使用ASP生成Excel文件的方法，并将其保存到服务器指定路径，同时提供了下载链接。通过创建文件系统对象和ADO连接，从数据库中获取数据并写入Excel表格。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Set fs = server.createObject("scripting.filesystemobject")

'--假设你想让生成的EXCEL文件做如下的存放
'filename = Server.MapPath("temp/ria.xls")
filename = Server.MapPath(Application("DOWNLOADFILEURL") ) & "\DA_BudgetQuery_"& objUser.Account & ".xls"

'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
'response.end
fs.deleteFile(filename)

end if

response.write "3<br />"
'--创建EXCEL文件
set myfile = fs.createTextFile(filename,true,true)

'stop
strSql = Request.QueryString("strSql")

'strSql = " exec RIAproRpt_NEW '"& strConn &"'"
Set conn2 = Server.Createobject("ADODB.Connection")
conn2.Open strCnn
Set conn3 = Server.Createobject("ADODB.Connection")
conn3.Open strCnn

Set tmpRs =conn.execute(strSql)
if not tmpRs.EOF and not tmpRs.BOF then

dim strLine,responsestr
strLine=""
strLine=strLine & "<table border=""1px"" cellspacing=""0"" cellpadding=""0"" style=""padding:0px; margin:0px"" > <tr > <td>区域</td>

'--将表的列名先写入EXCEL
myfile.WriteLine (strLine )

myfile.writeline("</table>")

Response.Write "生成EXCEL文件成功，点击<a href='"&Application("DOWNLOADFILEURL")& "\DA_BudgetQuery_"& objUser.Account & ".xls' >下载</a>！"
'Response.Write "生成EXCEL文件成功，点击<a href='Temp/RIA.xls' >下载</a>！"

'fs.close
set fs=nothing
myfile.close
set myfile=nothing
tmpRs.Close
set tmpRs = nothing
Conn.Close
Set Conn = nothing

转载于:https://www.cnblogs.com/netact/archive/2011/06/13/2079952.html