Question

asp导出EXCEL表左下角的工作表名怎么和文件名一样,怎么改呢?

<%
Response.Buffer = True
Response.Charset="GB2312"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=report"&Date()&".xls"
%>
<meta http-equiv="content-type" content="application/ms-excel; charset=GB2312"/>
<%
dim rsa,sqla
set rsa=server.createobject("adodb.recordset")
sqla="SELECT * from table "
rsa.open sqla,conn,1,1
%>
<table id="dataTable1" width="100%" border="1" cellspacing="1" cellpadding="1" align="left">
<tr>
<td align="center">序号</td>
<td align="center">产品分类</td>
<td align="center">产品线</td>
<td align="center">成品(K)</td>
</tr>
<%if not rsa.bof and not rsa.eof then%>
<%rsa.movefirst%>
<%cont=1%>
<%do while not rsa.eof%>
<tr>
<td align="center"><%=cont%></td>
<td align="center"><%=rsa("fa")%></td>
<td align="center"><%=rsa("pl")%></td>
<td align="center"><%=Round(rsa("cp")/1000,2)%></td>
</tr>
<%cont=cont+1%>
<%rsa.movenext%>
<%loop%>
<%end if%>
</table>
<%
rsa.close
set rsa=nothing
%>

跪求怎么改工作表名...

Answer 1

你输出的格式是HTML格式，根本不是EXCEL格式，你这样的代码是无法设定EXCEL工作表名称的。

要修改工作表名称、数据包含多个工作表、单元格使用公式、定义EXCEL名称、嵌入VBA代码……，要实现这些EXCEL的功能，程序应该真实的生成一个EXCEL文件，方法是使用createobject建立一个excel.application对象，新建工作薄，增加工作表，修改表内容。

追问

是把
set objExcelSheet = objExcelBook.Sheets(1)
改成
set objExcelSheet = objExcelBook.Sheets("工作表名")
吗

追答

你这两个语句效果是差不多的吧，命名可以是这样：
objExcelBook.Sheets(1) .name="工作表名称"