seesee90 发布留言 2008-6-25 15:57
asp怎样用ADO方式修改excel数据？急
asp怎样用ADO方式修改excel数据？急
entermaster 发布留言 2008-6-25 16:54
读取所有的Excel 表
entermaster 发布留言 2008-6-25 16:55
读取所有数据
注意其中的表名变量 table_name 因为我是从上一个文件接收的 Form 变量,一般情况下第一个表都是 Sheet$,也就是上面的回复那里来的.
<%
Response.write j
'关闭对象
rs.Close
Set rs=nothing
%>
[ 本帖最后由 entermaster 于 2008-6-25 16:56 编辑 [/it]]
seesee90 发布留言 2008-6-25 20:51
多谢enter大大的回帖，在学习中。。。。
seesee90 发布留言 2008-6-25 21:00
后来，用了这种笨方法来实现，因自己是新手，很菜
<%
dim xlsfile
xlsfile="18611jbjc.xls"
Set connx = CreateObject("ADODB.Connection")
on error resume next
connx.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(xlsfile)&";Extended Properties=""Excel 8.0;HDR=yes;IMEX=3"""
dim xlsfile1
xlsfile1="18611.xls"
Set connx1= CreateObject("ADODB.Connection")
connx1.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(xlsfile1)&";Extended Properties=""Excel 8.0;HDR=yes;IMEX=1"""
if err then
err.clear
set connx=nothing
set connx1=nothing
response.write("
连接到 XLS 文件出现错误，请检查数据处理文件 的 EXCEL 连接部分是否设置正确")
response.end()
end if
response.write("EXECL文件连接成功"&"
")
set rsx=server.createobject("adodb.recordset")
rsx.open "select * from [sheet1$]",connx,2,3
while not rsx.eof
Set rs=server.CreateObject("ADODB.recordset")
rs.open "select * from [sheet1$]",connx1,1,1
rs.movefirst
'rs.open "select * from [sheet1$] where rsx("考号")=rs("no")",connx1,1,1
while not rs.eof
if rsx("考号")=rs("no") then
rsx("政治")=rs("tsco")
rsx.update
end if
rs.movenext
wend
rsx.movenext
wend
'response.write("
