如何用asp读取excel文件

如何用asp读取excel文件

Dim Conn,Driver,DBPath,Rs
'建立Excel的Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
'调用Open方法打开数据库
Conn.Open Driver & DBPath
'设置DSN连接方式
'Conn.Open "Dsn=test"
'注意 表名一定要按照 "[表名$]" 格式书写
Sql="Select * From [Sheet1$] where 序号=0"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
　Response.write "数据未找到!!"
Else
　Do While Not Rs.EOF
　 Response.write Rs("书名")
　Rs.MoveNext
　Loop
End IF

直接读取 注意点:同读取acc数据一样 dim extname extname = "表名" set conn =server.createobject("adodb.connection") strconn="driver={microsoft excel driver (*.xls)};dbq="& server.mappath(文件路径和文件名) conn.open strconn set rs = server.createobject("adodb.recordset") sql="select * from ["&extname&"$] " rs.open sql,conn,3,3