显示excel数据

客户可以上传excel asp页面将数据显示出来 我发现有个问题 因为我将客户上传得excel文件重命名了 比如重命名为a.xls 我发现原先的sheet的名字也被改为a 我采用如下代码显示数据

strName = "I:\project\sellanalyse\a.xls"
set conn = server.createobject("adodb.connection")

myConn_Xsl = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName& ";Extended Properties=Excel 8.0"
conn.open myConn_Xsl
set rs = conn.execute("select * from [Sheet1$]")
while not rs.eof
for i = 0 to rs.fields.count-1
response.write rs(i)&"-"
next
rs.movenext
wend
set rs = nothing
set conn = nothing

这时候就显示不出数据了 一定要讲上传厚的xls文件sheet改名为sheet1才行
如果我把原先程序中的一句改为set rs = conn.execute("select * from [a$]")也不行 急啊 谁知道 帮忙来解决一下呢 谢谢了