关于读取excel中数据的问题

风继续吹

1. set rsxls=CreateObject("ADODB.Connection")
   
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")
   
4.             rs.open "select * from [Sheet1$$]",rsxls,1,1
   0 }) w3 d! |7 i# [0 l/ ~) H
5.                 do while not rs.eof
   , L0 v( i+ u, D) B4 ^5 ]
6.                 y=y+trim(gl(rs("名称")))
   
7.                 rs.movenext
   
8.                 loop
   # f3 e( N2 S/ W9 u- w8 V: U( n
9.                 rs.close
   ' M# `- a) Q* ~- S  ]$ W0 b. k) Y
10.         set rs=nothing
    1 H+ T) a4 \. Y' I2 v
11.         rsxls.close
    
12. set rsxls=nothing
    
13. response.Write y
    ) N; [5 V6 K0 ?" P; B( H* i3 D

复制代码

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

! F' S% S$ m+ H3 A9 B6 g, c1 }! c
$ I- A+ S! L* Z7 ]怎么就@不上呢？@shaman

风继续吹

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

小迷家9527

不晓得这是虾米东东

风继续吹

yl_rong 发表于 2013-4-11 22:56
% B" x. V2 ^4 q5 p- g' m+ G2 u不晓得这是虾米东东

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

风继续吹

睡等答案

eyefree

神马东西，不懂

Shaman

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

风继续吹

一生随缘 发表于 2013-4-12 08:01
8 E8 e+ G* G! ~* `/ c不懂的路过

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

风继续吹

lmysdju 发表于 2013-4-12 11:27
5 X: r7 k# ]& Z神马东西，不懂

会骑车就行了

风继续吹

Shaman 发表于 2013-4-12 19:32
9 ]* a( z$ ?2 D4 ~. Q5 Z  F* pexcel没有边界的，或者说边界不清楚，可能是一个很大的数，最好自己指定行数

/ o5 d) k2 o2 I2 k, L3 p' V9 ?我就是这样想的，但是我加一个数值，单循环到这个数值就退出循环，但是好像这个语句用在excel上不起作用，我在网上搜了一下答案，类似的读取excel的数据都是像我写的那样，它们又是怎么自己退出循环的呢？