问题根源分析 #

你遇到的报错和隐藏工作表异常，核心有3个关键原因：

1. 数组初始化遗漏：x变量没有初始赋值，第一次执行ReDim Preserve ArraySheets(x)时，x处于Empty状态，导致数组结构异常，后续Sheets(ArraySheets).Select直接触发报错。
2. 隐藏工作表无法被选中：你先调用hidesheets隐藏了部分工作表，但Select方法要求目标工作表必须可见，隐藏状态下执行选中操作必然失败。
3. xlVeryHidden使用错误：你提到的XlVeryhidden是拼写错误，正确的枚举值是**xlVeryHidden**（小写开头，驼峰命名）；另外如果工作表被保护，也会导致该属性无法正常设置。

修复后的完整代码 #

我重构了代码，去掉了不必要的Select操作（VBA里应尽量避免用Select，既容易出错又影响运行效率），同时修复了数组初始化和隐藏工作表的问题：

Sub hidesheets()
    ' 修正xlVeryHidden的拼写，启用超级隐藏
    Sheets("Materials - Specifications").Visible = xlVeryHidden
    Sheets("Fibre drop release sheet").Visible = xlVeryHidden
End Sub

Sub RAtoPDF()
    Call hidesheets
    
    Dim sh As Worksheet
    Dim ArraySheets() As String
    Dim custom_name As String
    Dim x As Integer
    x = 0 ' 必须初始化x为0，否则数组扩容操作会报错
    
    ' 遍历工作表，收集颜色索引为33的表名
    For Each sh In ActiveWorkbook.Worksheets
        If sh.Tab.ColorIndex = 33 Then
            ReDim Preserve ArraySheets(x)
            ArraySheets(x) = sh.Name
            x = x + 1
        End If
    Next sh
    
    ' 直接导出PDF，无需选中工作表（隐藏表也能正常导出）
    custom_name = "RA_" & Replace(ThisWorkbook.Name, ".xlsm", "") & ".pdf" ' 去除原文件后缀，避免冗余格式
    Sheets(ArraySheets).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & custom_name, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        
    ' 回到Frontsheet，用Activate代替Select更安全
    Sheets("Frontsheet").Activate
End Sub

关键修复点说明 #

• 数组初始化：给x初始赋值为0，确保第一次数组扩容操作正常执行，不会因变量为空导致数组结构错误。
• 移除Select操作：直接调用Sheets(ArraySheets).ExportAsFixedFormat，跳过选中步骤，隐藏/超级隐藏状态的工作表也能正常被导出。
• 修正xlVeryHidden拼写：使用正确的枚举值；如果仍无法设置超级隐藏，检查目标工作表是否被保护（取消保护后再设置即可）。
• 优化文件名：用Replace去掉原Excel文件的后缀（如.xlsm），避免PDF文件名出现RA_File.xlsm.pdf这类冗余格式。

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