MrYang's Blog

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://www.mryang.org/logs/16101561.html

很长时间没有象这几天这样集中精力来写代码了，写代码中遇到了这样的问题，需要把Excel文件的内容读出来，显示出来，查找了一下资料，解决方法如下：
实际上只要把Excel文件当作数据库，里面的Sheet当作数据库中的表来操作就可以，不同的只是驱动程序不一样，具体代码如下：

set excelconn=server.createobject(”adodb.connection”)
strAddr = Server.MapPath(”uploaddata/testdata.xls”) ‘Excel源文件
Response.Write “源文件：”&strAddr&”
”
excelconn.open “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=” & strAddr ‘打开此文件

‘建立excel记录集
set excelrs=server.createobject(”adodb.recordset”)

sql=”select * from [Sheet1$]” ‘查询
excelrs.open sql,excelconn,1,1
While not excelrs.Eof
Response.write excelrs(0) &”,”&excelrs(1) &”,”& excelrs(2) &”,”& excelrs(3)&”
”
excelrs.Movenext
wend
excelrs.close()
set excelrs=nothing
excelconn.Close()
set excelconn=nothing