利用asp读取xls文件

今天想查看一个xls文件，不知道里面的数据结构。虽然可以下载excel viewer软件来查看，想到asp应该可以方便读取xls数据，毕竟都是自家公司的东西。参考网上大神的文章，很快就实现了。记录下来做个备忘：

先获取表名称

Set conn = Server.CreateObject("ADODB.Connection")

'hdr取值yes,no ,表示第一行是否为字段名

connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xls文件绝对路径;Extended Properties='Excel 8.0;HDR=No;IMEX=1';"

conn.open connstr


set rstable=conn.openschema(20)
do until rstable.eof
if rstable(3)="TABLE" then
    response.Write("表名:"&rstable(2)&"<Br>")


    '获取表名称后，将数据读取代码插入此处


end if
rstable.movenext
loop
Set rstable=Nothing


Set conn=nothing



数据读取代码开始


    Set rs=Server.CreateObject("ADODB.Recordset") 
    
    sqldata = "select top 10 * from [上面获取的表名称]"  '本示例只读取10行,注意表名称后面应该有个$符号
    
    rs.open sqldata,conn,1,1
    
    rows=rs.recordcount  '总行数
    
    cells=rs.Fields.Count  '每行字段数目

    response.write "rows:"&rows&",cells:"&cells&""<Br>"

    do until rs.eof 

        for i=0 to cells-1
        response.write rs(i)&""<Br>"
        next

      response.write ""<Br>"


    rs.movenext 

    loop

    Set rs=nothing


数据读取代码结束

数据库连接时,hdr=no，所以数据输出的第一行为字段名称