Excel VBA通过数组值打开工作簿触发subscript out of range运行时错误如何解决

• 核心错误为数组重声明逻辑错误：你在填充StoreList数组的循环中，每次迭代都执行ReDim StoreList(x To uniquestores)，且未添加Preserve关键字。每执行一次ReDim，数组原有内容会被清空，且当循环执行到最后一次（x = uniquestores-1）时，数组的下标范围会变为uniquestores-1 To uniquestores，此时数组已不存在下标为0的元素，调用StoreList(0)自然触发下标越界错误。
• 次要隐患为变量隐式声明问题：代码中Dim x, y, z, uniquestores As Integer的写法仅将uniquestores声明为Integer类型，x/y/z均为默认的Variant类型，虽不直接引发本次报错，但容易触发其他边界判断异常。
• 额外隐患为唯一值统计逻辑缺少空值判断：直接用uniquestores = Cells(Rows.Count, "A").End(xlUp).Row统计UNIQUE函数返回的唯一值数量，未处理UNIQUE返回空结果的场景，极端情况也会引发边界错误。

1. 修正数组声明逻辑，提前一次性确定数组大小，不要在循环内反复重声明数组：

' 原有填充数组的循环替换为以下代码
ReDim StoreList(0 To uniquestores - 1) As String
For x = 0 To uniquestores - 1
    StoreList(x) = strPath & Range("B" & x + 1) & csv
    Range("C" & x + 1).Value = StoreList(x)
Next x

2. 补充优化建议：

• 明确声明所有变量类型，例如改为Dim x As Integer, y As Integer, z As Integer, uniquestores As Integer
• 尽量避免使用Select/ActiveSheet这类动态引用操作，直接用工作表对象绑定引用，运行稳定性更高
• 调用Workbooks.Open前可增加文件存在性判断，避免路径拼写、文件权限问题引发的其他运行错误

内容的提问来源于stack exchange，提问作者epickstar