| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1034 人关注过本帖
标题:又有问题了:ASP如何生成Excel表.
只看楼主 加入收藏
wzerolai
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2007-5-14
收藏
 问题点数:0 回复次数:3 
又有问题了:ASP如何生成Excel表.
请问哥哥姐姐:ASP如何生成Excel表.
搜索更多相关主题的帖子: Excel ASP 
2007-06-21 19:02
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
[QUOTE]<%
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页面,即浏览器中
%>[/QUOTE]
2007-06-21 20:43
feel_ing
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2008-9-12
收藏
得分:0 
asp中导出execl问题!
我用asp做的网站,我从后台读出来的数据怎么样才能实现标题所示的功能
期待madpbpl的回复~~~~~~~~~~

[[it] 本帖最后由 feel_ing 于 2008-9-23 14:39 编辑 [/it]]
2008-09-23 14:37
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
2008-09-23 15:51
快速回复:又有问题了:ASP如何生成Excel表.
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024929 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved