VBA使用整个数组选工作表触发Subscript Out of Range错误，单个元素正常

嘿，作为VBA新手遇到这个问题太正常了，我来帮你一步步排查和解决！

首先，运行时错误9（Subscript Out of Range）本质是代码尝试访问不存在的数组元素，或者用了无效的工作表名称/索引。结合你说的“单个数组元素能正常运行，整个数组不行”，大概率是这两个核心原因：

1. 数组中存在空白元素 #

很多新手填充动态数组时会不小心留下空的数组项——比如你从下标1开始赋值，但VBA数组默认从0开始，导致printsheets(0)是空字符串。当你用整个数组调用Sheets(printsheets()).Select时，Excel会尝试找到名为空字符串的工作表，自然找不到就触发报错。

修复方法：调整数组填充逻辑 #

确保数组的每个元素都是有效的工作表名称，从下标0开始填充：

Dim printsheets() As String
Dim ws As Worksheet
Dim arrIndex As Integer

arrIndex = -1 '初始化为-1，第一次循环后变为0，对应数组起始下标
For Each ws In ThisWorkbook.Sheets
    '替换成你的"判断用户是否选中该工作表"的逻辑
    If ws.Visible = xlVisible Then '示例：仅选择可见工作表
        arrIndex = arrIndex + 1
        ReDim Preserve printsheets(arrIndex) '动态扩展数组，保留已有元素
        printsheets(arrIndex) = ws.Name
    End If
Next ws

'先检查数组是否有有效元素，再执行选择
If arrIndex >= 0 Then
    ThisWorkbook.Sheets(printsheets).Select '注意：数组名不要加括号！
End If

2. 调用时错误地给数组加了括号 #

你写的ThisWorkbook.Sheets(printsheets()).Select里，printsheets()的括号是多余的。在VBA中，直接用数组名printsheets作为Sheets的参数即可，加括号会让VBA误以为你要调用一个过程，而非传递数组本身，这也会导致下标越界错误。

修复方法：去掉数组名后的括号 #

把代码改成：

ThisWorkbook.Sheets(printsheets).Select

额外验证步骤 #

为了彻底确认数组没问题，你可以在填充完数组后加一段调试代码，打印所有元素：

'在填充数组的循环结束后添加
For i = LBound(printsheets) To UBound(printsheets)
    Debug.Print "数组元素" & i & ": " & printsheets(i)
Next i

然后打开VBA编辑器的“立即窗口”（按Ctrl+G），查看每个元素是不是都是有效的工作表名称。如果有空元素，就回到填充逻辑里调整即可。

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