求助：VBA代码仅返回数组最后一个值的原因排查

问题核心原因 #

1. 数组被重复初始化：循环内的MyArray = Array(xWBName)语句会在每次迭代时重置数组，将其变为仅包含当前工作簿名称的新数组，之前循环存入的元素全部被覆盖——这是最终数组只有最后一个工作簿名称的根本原因。
2. 计数变量未初始化：WkbCount没有初始值，第一次循环时WkbCount = WkbCount + 1会计算为Empty + 1，结果为1，导致数组索引从1开始，0索引位置始终是空值。
3. Debug打印逻辑错误：硬编码打印MyArray(0)到MyArray(3)，不管数组实际长度，当打开的工作簿数量不等于4时会触发下标越界错误。

修正后的代码 #

Sub SelectWB()
    Dim xWBName As String
    Dim xWb As Workbook
    Dim xSelect As String
    Dim WkbCount As Integer
    Dim i As Integer
    Dim MyArray As Variant
    Dim FilName As String
    
    ' 初始化计数变量
    WkbCount = 0
    ' 初始化数组，长度为0
    ReDim MyArray(0) As Variant
     
    For Each xWb In Application.Workbooks
        xWBName = xWb.Name
        ' 扩展数组长度，保留原有元素
        ReDim Preserve MyArray(WkbCount) As Variant
        ' 将当前工作簿名称存入对应索引
        MyArray(WkbCount) = xWBName
        ' 计数加1
        WkbCount = WkbCount + 1
    Next
    
    ' 遍历数组打印所有元素
    For i = LBound(MyArray) To UBound(MyArray)
        Debug.Print "索引" & i & ": " & MyArray(i)
    Next i
    
    ' 示例：激活第一个工作簿（如果数组非空）
    If UBound(MyArray) >= 0 Then
        FilName = MyArray(0)
        Application.Workbooks(FilName).Activate
    End If
End Sub

关键修改说明 #

• 提前初始化WkbCount为0，确保索引从0开始正确计数。
• 循环前先初始化数组，移除循环内的MyArray = Array(xWBName)语句，避免重置数组。
• 调整ReDim Preserve的位置，先扩展数组长度再存入当前元素，确保每次迭代都保留之前的元素。
• 优化Debug打印逻辑，根据数组实际上下界遍历打印，避免硬编码索引导致的错误。
• 添加数组非空判断，防止激活工作簿时触发错误。

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