set connXls = Server.CreateObject("ADODB.Connection")
connXls.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source="&Server.MapPath("database/Test.xlsx")&";Extended Properties='Excel 12.0 Xml;HDR=No;IMEX=2'"
connXls.open
'-------------------------------------------------------
strSql="select * from [Sheet1$]"
set rs = Server.CreateObject("adodb.recordset")
rs.open strSql,connXls,1,1
if not rs.eof then
while not rs.eof
response.Write(rs(0)&"<br />")
rs.movenext
wend
end if
rs.close
set rs=nothing
connXls.close
set connXls=nothing
注意:Microsoft Access Database Engine 2016/2010 Redistributable 可再发行组件一定要安装哦!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。