ASP 中如何在导出EXCEL表头加标题

KKCSD 2008-04-10 02:28:20
各位:

我用了SHAWATCN的以下代码,可在ASP导出EXCEL表了,但我要在表头上加个标题,该如何写代码,请各位大侠指点.谢谢!
<%
fname="excel/结果.xls"
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(datadb)

dim rs,sql,filename,fs,myfile,x,link

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

filename = Server.MapPath(fname)
' 生成的Excel文件路径

if fs.FileExists(filename) then
fs.DeleteFile(filename)
' 如有原来相同的Excel文件删除(覆盖)它
end if
set myfile = fs.CreateTextFile(filename,true)
' 创建Excel文件


Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from jbcp order by sno"
' 从数据库中把需放到Excel文件中的数据查找出来
rs.Open sql,conn
if rs.EOF and rs.BOF then

else

dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next

'--将表的列名先写入EXCEL
myfile.writeline strLine

Do while Not rs.EOF
strLine=""

for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next

myfile.writeline strLine

' 将表的数据写入Excel文件

rs.MoveNext
loop

end if

rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
%>
...全文
164 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
KKCSD 2008-04-10
[Quote=引用 1 楼 myvicy 的回复:]
列名不是已经写了啊!
[/Quote]

我是说报表的标题,如....报表!,不是字段啊
回复
myvicy 2008-04-10
列名不是已经写了啊!
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-10 02:28
社区公告
暂无公告