Question

求VB循环取excel表中的多个数据

用VB要循环时取EXCEL表中的多个数据，并同时循环写入另一张EXCEL表的单元格中（取出来的数写入时是一个数写到一个指定的单元格中）

Answer 1

从你另外一个问题可以看出你的这个问题已经解决了。
dim i()
dim x,y as long
y=1
x=1 '我觉得这里x应该为1，应为Cells（0,1）是不存在的
while y=1
if xlsheet.cells(x,1)="" then y=0
'x=x+1 '有点早了,后面的位置是对的
redim i(x-1)
i(x-1)=xlsheet.cells(x,1)
x=x+1
wend

写EXCEL：
y=1
for n=0 to x-1
xlsheet.cells(y,1)=i(n)
y=y+1
next
这就对了

Answer 2

可以用数组啊，把你要的表中数据取出来存入数组，再用循环写到你需要的EXCEL表中！
读第一个表
dim i()
dim x,y as long
y=1
x=0
while y=1
if xlsheet.cells(x,1)="" then
y=0
end if
x=x+1
redim i(x)
i(x-1)=xlsheet.cells(x,1)
x=x+1
wend

写EXCEL：
y=1
for n=0 to x-1
xlsheet.cells(y,1)=i(n)
y=y+1
next

具体连接EXCEL及关闭连接请参考有关资料