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
%>
...全文
235 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
KKCSD 2008-04-10
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 myvicy 的回复:]
列名不是已经写了啊!
[/Quote]

我是说报表的标题,如....报表!,不是字段啊
myvicy 2008-04-10
  • 打赏
  • 举报
回复
列名不是已经写了啊!

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧