按字母顺序打印工作表报错：数组已固定或临时锁定（错误10）

错误原因分析 #

1. 变量名冲突：循环语句For Each wsname In wsname中，循环变量与数组变量同名，导致VBA无法正确识别目标集合/数组，触发运行时错误10。
2. 数组结构不合理：初始数组大小设为所有工作表总数，其中大部分元素为空，遍历空元素会引发不必要的判断和潜在错误。
3. 排序逻辑错误：原代码直接移动工作表位置，且循环索引基于可见工作表数量而非实际可见工作表集合，导致排序结果不符合预期（可能误操作隐藏工作表）。
4. PDF导出方式错误：逐个调用PrintOut导出到同一PDF路径，会导致后续内容覆盖之前的，最终只能得到最后一个工作表的PDF，而非合并所有可见表。

修正后的代码 #

Sub PrintVisibleSheetsToSinglePDF()
    Dim ws As Worksheet
    Dim visibleWsNames As Collection
    Dim pdfPath As String
    Dim pdfFileName As String
    Dim pdfFullPath As String
    Dim i As Integer, j As Integer
    Dim tempName As String
    
    ' 初始化存储可见工作表名称的集合
    Set visibleWsNames = New Collection
    
    ' 收集所有可见工作表的名称
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            visibleWsNames.Add ws.Name
        End If
    Next ws
    
    ' 对集合中的工作表名称按字母顺序排序（冒泡排序）
    For i = 1 To visibleWsNames.Count - 1
        For j = i + 1 To visibleWsNames.Count
            If visibleWsNames(j) < visibleWsNames(i) Then
                tempName = visibleWsNames(i)
                visibleWsNames(i) = visibleWsNames(j)
                visibleWsNames(j) = tempName
            End If
        Next j
    Next i
    
    ' 设置PDF保存路径和文件名
    pdfPath = ThisWorkbook.Path & "\"
    pdfFileName = "VisibleSheets_" & Format(Now(), "yyyymmdd_hhmmss")
    pdfFullPath = pdfPath & pdfFileName & ".pdf"
    
    ' 先取消所有工作表的选中状态
    ThisWorkbook.Worksheets(1).Select False
    
    ' 按排序后的顺序选中所有可见工作表
    For i = 1 To visibleWsNames.Count
        ThisWorkbook.Worksheets(visibleWsNames(i)).Select True
    Next i
    
    ' 一次性导出选中的工作表为单个PDF
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=pdfFullPath, _
        Quality:=xlQualityStandard
    
    ' 取消选中状态（可选，恢复默认）
    ThisWorkbook.Worksheets(1).Select
    
    MsgBox "PDF创建成功！"
End Sub

关键改动说明 #

• 改用Collection存储可见表名称：避免空元素问题，更适合动态收集数据。
• 独立排序名称集合：仅对名称排序，不直接移动工作表位置，避免打乱原工作簿的工作表顺序。
• 批量选中后导出：先按排序后的顺序选中所有目标工作表，再一次性导出为单个PDF，确保内容合并且顺序正确。
• 修正变量命名：避免循环变量与数组/集合同名，提升代码可读性。

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