ASP操作excel问题

来源：百度知道 编辑：UC知道 时间：2024/06/25 07:51:20
谁能给我一个完整的代码，我需要从EXCEL中读取数据出来，仅此而已，可是我用对象读取的时候老是DLLHOST什么的进程狂升，不知道什么问题，请大家帮帮忙！
我的连接参数文件：Dim CrExcelConn,CrExcelConnStr,CrDb
CrDb = Server.MapPath("data/信用控制财务提供客户分数.xls")
CrExcelConnStr = "Driver={Microsoft Excel Driver (*.xls)};DBQ="&CrDb
Set CrExcelConn = Server.CreateObject("Adodb.Connection")
CrExcelConn.Open CrExcelConnStr
If Err Then
Err.Clear
Response.Write("<p>CrExcel Error!</p>")
Response.End
End If
读取方代码断：
Dim rs
Dim Sql
Sql="select * from [sheet1$]"
rs.Open Sql,CrExcelConn,2,3
do while not rs.eof
'table代码断
rs.movenext
loop
end if
rs.close
set rs=nothing

我的代码断有错么？
还有就是我如果要读取EXCEL当中第N条数据的话应该怎么办？除了用rs.move(n-1)这种办法

代码断没错.
你更换个连接驱动看看
从ODBC里能找到你目前电脑里都有什么驱动可用

另外摘抄一篇文章可能对你有用
把EXCEL当成数据库来读要有很严格的格式限制，还会出现很多问题...
'===================
'Ⅰ）将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表
'Ⅱ）ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容
'Ⅲ）Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为"F1"
'Ⅳ）如果Excel表中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常处理这一行的数据类型，你必须要保证该列的数据类型一致(加入预设符号强制转成文本，后台再作处理)
'Ⅴ）日期型时，整列不能有空格，否则读不出
'============================攻略：===============
1、通过filefield获得文件
2、验证.xls文件
3、建立连接
'建立excel连接
set excelconn=server.createobject("adodb.connection")
strAddr = Server.MapPath(uploadpath&filename)
'输出源文件名 Response.Write "源文件："&strAddr&""
excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr
'建立excel记录集
set excelrs=server.createobjec