Question

excel中 运行错误9，下标越界

For cols = allrowStart To allrowEnd
If Sheets("SelectCols").Cells(cols, 4) <> Sheets("SelectCols").Cells(cols - 1, 4) Then
Filename = mPath & "\" & Sheets("SelectCols").Cells(cols, 4)
strConn = "TEXT;" & Filename
Worksheets(Sheets.Count).Cells.Select
本人vba水平机会为0，请求细致解决方案

Answer 1

Excel中vba提示下标超界，说明对象不存在或者数组元素不存在。

举个简单的例子：工作表中没有"1月"这个工作表，却用Sheets("1月")；数组定义的是arr(1 to 10)，却用Arr(11)，都会出现下标越界的提示。

简单的理解：下标越界就是引用超出了所在的范围。

1、当我们在excel的VBA中输入下面代码，运行，就会出现“运行时错误9下标越界”的提示。代码如下：

Sub a()
Dim arr() As String
arr(1) = "你好"
End Sub

2、其实上面的“运行时错误9下标越界”是因为定义的动态数组没有确定维数和尺寸。定义成固定维数和尺寸的，或用Redim界定一下维数和尺寸即可解决此问题。

改正后的代码如下：

Sub a()

Dim arr() '定义一个动态数组

Dim i As Integer

ReDim arr(1 To 3) '定义一个3个元素的数组,并且对数组进行初始化

arr(1) = 3

arr(2) = 4

arr(3) = 5'在下面语句重新定义一个10个元素的数组，清除前面的元素，并重新分配新的存储变量

ReDim arr(1 To 10)

For i = 1 To 10

arr(i) = i

Next i

End Sub，就可以了

扩展资料：

VB中的数组越界

引用了不存在的数组元素。

下标可能比下标范围大或小，或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组，应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量，应检查变量名的拼写。

声明数组时没有指定元素的数目。例如，下列的代码就会导致此错误：

Dim MyArray() As Integer

MyArray(8) = 234 ' 导致错误 9。

Visual Basic 并不会将没有指定范围的数组自动设为 0 – 10。相反必须使用 Dim 或 ReDim 来指定数组中元素的数目。

引用了不存在的集合成员。

试着使用 For Each...Next 结构代替指定元素下标。

使用速写形式的下标，结果指定了错误的元素。

参考资料来源：百度百科-下标越界

Answer 2

For cols = allrowStart To allrowEnd
大概是遍历某列的数据
If Sheets("SelectCols").Cells(cols, 4) <> Sheets("SelectCols").Cells(cols - 1, 4) Then
如果SelectCols表格的第四列在本行的数据与下一行的数据不等则
Filename = mPath & "\" & Sheets("SelectCols").Cells(cols, 4)
文件名？=mpath（路径）加本行4列单元格的值，貌似是完整路径
strConn = "TEXT;" & Filename
看这个名称应该是建立连接的语句
Worksheets(Sheets.Count).Cells.Select
这个worksheets出问题了吧，sheets(sheets.count)感觉才通畅，你本意是选取最后表格的所有单元格，worksheets是一个集合，不能指定单一的表格，所以呢