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
%>