收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 3257|回复: 1

[asp] asp连接excel2016文件读取数据

[复制链接]
发表于 2017-5-14 22:45:45 | 显示全部楼层 |阅读模式
ASP如何连接Excel2016文件,读取其中的数据?
发表于 2017-8-8 19:50:05 | 显示全部楼层
  1. <%
  2. Dim xlsName, conn, rs, SQL
  3. xlsName = "test.xls"
  4. Set conn = Server.CreateObject("ADODB.Connection")
  5. conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath(xlsName)
  6. SQL = "select * from [sheet1$]"
  7. Set rs = Server.CreateObject("ADODB.Recordset")
  8. rs.Open SQL, conn, 1, 3
  9.         Response.Write "<table border=1>"
  10.         Do While Not rs.Eof
  11.                 Response.Write "<tr>"
  12.                 for i=0 to rs.Fields.Count-1
  13.                         Response.Write "<td>" & Trim(rs(i)) & "</td>"
  14.                 Next
  15.                 Response.Write "</tr>"
  16.                 rs.MoveNext
  17.         Loop
  18.         Response.Write "</table>"
  19. rs.Close
  20. conn.Close
  21. Set rs = nothing
  22. Set conn = nothing
  23. %>
复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-19 03:28 , Processed in 0.124686 second(s), 8 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表