当前位置: 代码网 > it编程>编程语言>其他编程 > 如何把一个Excel文件放到ASP页面中去?

如何把一个Excel文件放到ASP页面中去?

2024年05月15日 其他编程 我要评论
<%set xlapp = server.createobject("excel.application")xlapp.visible = false' 使服务端不出现excel窗口.set m

<%
set xlapp = server.createobject("excel.application")
xlapp.visible = false

' 使服务端不出现excel窗口.
set myworkbook = xlapp.workbooks.add

' 建立一个worksheet.
set myworksheet = myworkbook.worksheets(1)
myworksheet.range("a1").value = '
精彩春风通讯录'
myworksheet.range("a1").font.size = 12
myworksheet.range("a1").font.bold = true
myworksheet.range("a2").value = '
姓名'
myworksheet.range("b2").value = '
地址'
myworksheet.range("c2").value = '
电话'
myworksheet.range("d2").value = '
手机'

' 以上7行建立表头.
myworksheet.range("a2:d2").font.bold = true
strfilename = session.sessionid & ".xls"

' 确保文件名唯一.
strapppath = request.servervariables("path_translated")
strapppath = left(strapppath, instrrev(strapppath, "\"))
strfullpath = strapppath & strfilename
myworkbook.saveas(strfullpath)

' 保存文件.
myworkbook.close

' 关闭excel.
xlapp.quit
set myworksheet = nothing
set myworkbook = nothing
set myxlapp = nothing
response.redirect strfilename

' 写到asp页面,即浏览器中.
%>

[1]

(0)

相关文章:

版权声明:本文内容由互联网用户贡献,该文观点仅代表作者本人。本站仅提供信息存储服务,不拥有所有权,不承担相关法律责任。 如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2386932994@qq.com 举报,一经查实将立刻删除。

发表评论

验证码:
Copyright © 2017-2025  代码网 保留所有权利. 粤ICP备2024248653号
站长QQ:2386932994 | 联系邮箱:2386932994@qq.com