程序部分如下：

dime a(120)
for i=1 to 120
input"请输入数字    "to a(i)

w=int(a(i)/10000)
w1=a(i)-w*10000
q=int(w1/1000)
q1=w1-q*1000
b=int(q1/100)
b2=q1-b*100
s=int(b2/10)
g=b2-s*10

do case
case w=0
  li=li+1
case w=1
  yi=yi+1
case w=2
………………

现在我觉得要一个个去输入数字太麻烦了，一共6万组数字呀…………。
而且又有现成的这6W组数字的excel表

所以就想能不能用什么语句来实现自动从excel表中取数据来计算？？？

先谢谢大家的指点