关于读取excel中数据的问题

风继续吹

( j4 ~! S# r' B: Y- Q4 c

1. set rsxls=CreateObject("ADODB.Connection")
   ! K4 ?1 F( O2 \
2.            rsxls.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Extended properties='Excel 8.0;hdr=yes;imex=1';Data Source="&xlspath
   
3.         set rs=server.createobject("adodb.recordset")
   ' m7 o) L  N: I
4.             rs.open "select * from [Sheet1$$]",rsxls,1,1
   , l' _6 }6 X' \0 V$ Q
5.                 do while not rs.eof
   + ~, k: G& w7 B1 N0 {8 e0 J& e9 ]: g
6.                 y=y+trim(gl(rs("名称")))
   
7.                 rs.movenext
   
8.                 loop
   7 F" b% a8 Z3 ?* l4 J1 X+ b$ r
9.                 rs.close
   9 C4 y* B) N. ?7 K: `; m
10.         set rs=nothing
      g2 K5 u; h: |/ }7 u6 O
11.         rsxls.close
    
12. set rsxls=nothing
    " }3 v- P  C" l% o- M: ?- u; A# o
13. response.Write y
    7 }' g2 o' R5 r$ A4 K! \

复制代码

运行就死循环，这有哪不对吗？
; Z8 f. _. X- ?求解。
  v" Y! c  J4 B% ?: _  q

怎么就@不上呢？@shaman

风继续吹

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

小迷家9527

不晓得这是虾米东东

风继续吹

yl_rong 发表于 2013-4-11 22:56
' L, N$ P& J1 H, g# T- d不晓得这是虾米东东

还是先睡觉，今晚应该解决不了了。

风继续吹

睡等答案

eyefree

神马东西，不懂

Shaman

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

风继续吹

一生随缘 发表于 2013-4-12 08:01
. G4 d( p% j, w$ ?不懂的路过

~~~~(>_<)~~~~ ，

风继续吹

lmysdju 发表于 2013-4-12 11:27
神马东西，不懂

2 A1 h' x5 D6 ]$ c4 U% B会骑车就行了

风继续吹

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

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