利用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，所以数据输出的第一行为字段名称
你可能想看：