数组中忽略隐藏工作表的VBA代码问题求助

嘿Matt，我来帮你搞定这个问题！你的代码思路是对的——收集符合条件的可见工作表，但问题出在只选中了工作表却没有明确触发打印所有选中项，或者手动打印时默认只打当前活动工作表。咱们来一步步修正：

问题分析 #

你的原代码生成了目标工作表的数组并执行了Sheets(myArray).Select，但存在几个小问题：

1. 没有主动触发打印所有选中工作表的操作，手动打印时默认会只打印当前活动工作表
2. 未处理数组为空的情况，容易触发运行时错误
3. 用True判断可见性不够规范，Excel的Visible属性有三个常量值，建议用官方常量更清晰

修正后的代码 #

我调整了代码，添加了自动打印逻辑，同时优化了错误处理：

Sub SelectAndPrintSheets()
    Dim myArray() As Variant
    Dim i As Integer
    Dim j As Integer
    j = 0
    
    ' 遍历工作表，筛选可见且在指定列表中的目标表
    For i = 1 To Sheets.Count
        ' 使用xlSheetVisible常量更规范，避免歧义
        If Sheets(i).Visible = xlSheetVisible And IsInArray(Sheets(i).Name, Array("Sheet1", "Sheet2", "Sheet3")) Then
            ReDim Preserve myArray(j)
            myArray(j) = Sheets(i).Name
            j = j + 1
        End If
    Next i
    
    ' 先检查是否有符合条件的工作表，避免报错
    If j > 0 Then
        ' 方式1：选中后打印所有选中的工作表
        Sheets(myArray).Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        
        ' 方式2：无需选中，直接打印目标数组（更高效）
        ' Sheets(myArray).PrintOut Copies:=1, Collate:=True
    Else
        MsgBox "没有找到符合条件的可见工作表，无法打印！"
    End If
End Sub

' 完善函数的返回类型声明，更规范
Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
    IsInArray = Not IsError(Application.Match(stringToBeFound, arr, 0))
End Function

关键修改点 #

• 明确触发打印：添加PrintOut方法，直接打印所有目标工作表，避免手动操作的误差
• 错误防护：增加数组非空判断，当没有符合条件的工作表时弹出提示，防止代码崩溃
• 规范常量使用：用xlSheetVisible代替True，更清晰表达可见性状态
• 可选高效方式：直接打印目标数组，不需要切换选中状态，运行更流畅

额外提示 #

如果你还是想保留手动打印的流程，选中工作表后，在打印对话框里一定要选择**「打印选中的工作表」**选项，而不是默认的「打印活动工作表」，这样就能打印所有你选中的目标表了。

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