解决的方法:可以把数组的大小定义的大一点,在使用数组里的元素的时候,别让它的小标超过规定值!
'这么一大段代码我给你看完了.但没有给出源调用函数,所以不能调试.'我只能给出一个建议,你用UBound()函数可以计算数组的下标界线如
r(10) as integer'该数组有10个元素0-9
For i=0 to UBound(r)'这时UBound(r)的值为9
r(i)=i+1'对每个元素进行赋值
Next
'如果出现r(10)的引用就是超出数组下标的.
For i=o to UBound(r)
print r(i) '输出该数组
Next
'而你用Do while是很容易出现超出数组下标的.
VB下标越界的处理办法:
尽管出现下标越界的原因是多种多样,但终究是因为对象不存在或者超出范围,就会出现下标越界的提示框,如下图所示:
如果使用数组时,数组的下标超出数组的可取值范围就会出现这个错误,这个数组可以是自定义的也可以是系统自带的。
1.自定义数组:
dim arr1(1 to 5)
arr1(10)=555
因为arr1数组为1到5,这里却是10,所以就会报下标越界错误。
2.系统自带的数组:
一个excel工作表表有3张Sheet
Sub 下标越界()
MsgBox Sheets(4).Name
End Sub
这里的Sheets(4)显然已经超出了3张Sheet,因此也会报下标越界错误。
总之,有多种情况会引起“下标越界”的报错。
下标越界错误大概有以下的原因和解决方法:
1、引用了不存在的数组元素。
下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组,应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量,应检查变量名的拼写。
2、声明数组时没有指定元素的数目。
3、引用了不存在的集合成员。 试着使用 For Each...Next 结构代替指定元素下标。
使用速写形式的下标,结果指定了错误的元素。
4、下标越界不存在对应的工作薄、工作表名称是否写正确。