ASP导出EXCEL,如何自定义表头。

gongpailj 2014-11-30 10:56:31

Set fs = server.CreateObject("scripting.filesystemobject")
filename="stock_list.xls"
temp=filename
filename=server.MapPath("excel\")+filename
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine

while not rs.eof
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.movenext
wend
response.redirect "excel/stock_list.xls"
set myfile = nothing
Set fs=Nothing
end if


如上,这段代码可以把数据导出,表头是按数据库的表头直接读出来的,请问,如何修改这段代码:
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine

我想自定义表头,比如,第一列user,第二列name,第三列dep ........
...全文
260 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
csdn_aspnet 2014-12-01
  • 打赏
  • 举报
回复
你可以把sql字段as成中文 http://blog.csdn.net/itfly8/article/details/577442

28,409

社区成员

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

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