关于读取excel中数据的问题

风继续吹

1. set rsxls=CreateObject("ADODB.Connection")
   ! x! _) C% g9 G6 s8 d2 h6 B$ K: W
2.            rsxls.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Extended properties='Excel 8.0;hdr=yes;imex=1';Data Source="&xlspath
   + V& Q! Y1 [; M" ?3 ~3 D
3.         set rs=server.createobject("adodb.recordset")
   
4.             rs.open "select * from [Sheet1$$]",rsxls,1,1
   " O( z* K$ P8 _3 t5 V
5.                 do while not rs.eof
   
6.                 y=y+trim(gl(rs("名称")))
   
7.                 rs.movenext
   1 L5 ^! B. ^# L- k* m
8.                 loop
   
9.                 rs.close
   
10.         set rs=nothing
    
11.         rsxls.close
    
12. set rsxls=nothing
    & W; E: W9 x5 ~& J8 o6 }; X4 S
13. response.Write y
    

复制代码

运行就死循环，这有哪不对吗？
求解。


8 c1 A2 w) U$ i1 e1 n: k, @怎么就@不上呢？@shaman

风继续吹

说明一下那个Sheet1$$中的$是发表后自己就多加了一个。

小迷家9527

不晓得这是虾米东东

风继续吹

yl_rong 发表于 2013-4-11 22:56
/ R! F8 c7 U! R! Y; H% ~* p' O" |- ]不晓得这是虾米东东

4 G6 ]  k6 \$ T还是先睡觉，今晚应该解决不了了。

风继续吹

睡等答案

eyefree

神马东西，不懂

Shaman

excel没有边界的，或者说边界不清楚，可能是一个很大的数，最好自己指定行数

风继续吹

一生随缘 发表于 2013-4-12 08:01
; \) C' x  L! W2 N9 o不懂的路过

  C) W- {9 ]; G8 L/ V~~~~(>_<)~~~~ ，

风继续吹

lmysdju 发表于 2013-4-12 11:27
% F7 ~9 V3 Z; u+ M4 [2 |神马东西，不懂

5 M) m) k0 Q3 Y: M/ _/ L1 K会骑车就行了

风继续吹

Shaman 发表于 2013-4-12 19:32
excel没有边界的，或者说边界不清楚，可能是一个很大的数，最好自己指定行数

我就是这样想的，但是我加一个数值，单循环到这个数值就退出循环，但是好像这个语句用在excel上不起作用，我在网上搜了一下答案，类似的读取excel的数据都是像我写的那样，它们又是怎么自己退出循环的呢？