28,406
社区成员
发帖
与我相关
我的任务
分享请问如何取出页面中SpreadSheet（Excel电子表格）中的数据?
谢谢了!
找了老半天资料，都没有结果(只可以得到整个Sheet的XML代码)，希望有高手帮忙，有一个更好的方法得到单元的数据！
找了老半天资料，都没有结果(只可以得到整个Sheet的XML代码)，希望有高手帮忙，有一个更好的方法得到单元的数据！
...全文
请发表友善的回复…
发表回复
ekang999 2002-03-04
- 打赏
- 举报
其实excel也可以用ado来联接的，方法是一样的，请看例子
connstr="Provider=Microsoft.Jet.OleDB.4.0;Data Source=g:\study\test.xls;Extended Properties=excel 8.0;"
set conn=server.CreateObject ("adodb.connection")
conn.Open connstr
set rscase=server.CreateObject ("adodb.recordset")
rscase.Open "select * from [sheet1$]",conn,3,1
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from [sheet1$]",conn,1,3
do while not rscase.EOF
rs.AddNew
rs.Fields("姓名")=rscase("姓名")
rs.Update
rscase.MoveNext
loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
Response.Write "成功！"
connstr="Provider=Microsoft.Jet.OleDB.4.0;Data Source=g:\study\test.xls;Extended Properties=excel 8.0;"
set conn=server.CreateObject ("adodb.connection")
conn.Open connstr
set rscase=server.CreateObject ("adodb.recordset")
rscase.Open "select * from [sheet1$]",conn,3,1
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from [sheet1$]",conn,1,3
do while not rscase.EOF
rs.AddNew
rs.Fields("姓名")=rscase("姓名")
rs.Update
rscase.MoveNext
loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
Response.Write "成功！"
Myself_fu 2002-03-04
- 打赏
- 举报
怎么没人知道？哎......
