asp链接excel2016

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 可再发行组件一定要安装哦！