asp读取 .xlsx（excel2007）格式文件

[风沙不去驼铃声]

这是读取 .xls（excel2003）的代码
excel="../xls/"&request("f")
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(excel)&";Extended Properties='Excel 8.0;HDR=No;IMEX=1';"
conn.open connStr
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [sheet1$]",conn,1,1

无法读 .xlsx格式文件，请大侠们帮忙啊

[hebhd]

Server 安装下面这个了吗?

http://go.microsoft.com/fwlink/?LinkId=98155


然后改成这样试一下.我这里没有环境无法测试

set conn=Server.CreateObject("Adodb.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"
DBPath = "DBQ=" & Server.MapPath("book.xls")

[ilxl520]

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&Server.MapPath(text.xlsx)&";Extended Properties=""Excel 12.0;HDR=NO""; "

[hebhd]

'Excel 8.0
这里换高一点

或者使用odbc 生成看一下应该是什么串

[wangkk125]

<%
set conn=Server.CreateObject("Adodb.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath("book.xls")
conn.open Driver&DBPath
sql="select * from [Sheet1$]"
set rs=conn.execute(sql)
for i=0 to Rs.Fields.Count-1
response.write rs(i).name&"　　"
next
response.write "
"
response.write "
"
do while not rs.eof
for i=0 to Rs.Fields.Count-1
response.write rs(i).value&"　　　"
next
response.write "
"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

[wj121284]

Set conn =Server.CreateObject("ADODB.Connection")
StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/xxx.xls")&";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [xxx$]"
rs.Open Sql,conn,3,3

[风沙不去驼铃声]

无法读excel2007的 .xlsx 格式文件

[风沙不去驼铃声]

以上的都试过了，还是不行。

[风沙不去驼铃声]

没有答案，但是还是结贴

[pdsnet]

挖坟..我也遇到这个问题了 .导出 xls 可以 xlsx 不行.