by 清泉
17. 五月 2010 10:07
需求:读取一个excel文件 把excel文件都显示在页面
其实这个很简单 就一个文件上传 然后读取excel 获取数据 循环显示
重点是显示的数据不完整
第一行没有
代码是这样写的
Set eConn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath(fname)
'调用Open 方法打开数据库
eConn.Open Driver & DBPath
sql="Select * From [Sheet1$]"
set rs=econn.execute(sql)
后来高人的指点下修改了下
'读取所有数据
Set eConn = Server.CreateObject("ADODB.Connection")
'读取所有数据
eConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(fname)&";Extended Properties='Excel 8.0;HDR=NO';"
sql="Select * From [Sheet1$]"
set rs=econn.execute(sql)
OK 搞定
备注:Extended Properties=Excel 8.0这句话必须加进去,不然连接会不稳定.