VBA按Overview表指定名称合并导出多工作表为PDF的代码问题求解

代码运行失败的核心错误是对Array()函数的传参逻辑理解偏差：

• 硬编码Sheets(Array("SheetA","SheetB","SheetC")).Select可正常运行，本质是你给Array()传入了3个独立的字符串参数，函数会返回包含3个工作表名元素的一维数组，符合Sheets选择多表的参数要求。
• 你拼接得到的Printarray是一整段包含双引号、逗号的长文本（例如内容为"SheetA","SheetB","SheetC"），将这单个字符串传入Array()时，函数只会返回仅含1个元素的数组，元素值就是你拼接出的整段文本。VBA会尝试查找名称等于这段整文本的工作表，自然匹配失败、抛出错误。
• 代码中拼接时添加的Chr(34)（即双引号字符）完全多余：硬编码写法里的双引号是VBA语法中标记字符串边界的符号，不属于工作表名称本身的内容，把双引号拼入字符串反而会导致名称匹配异常。

不要拼接带格式的长字符串，直接声明标准的VBA一维数组存储工作表名称，遍历表格逐行将名称写入数组即可，不需要额外添加双引号、逗号做拼接。
修复后可直接运行的代码：

Sub ExportAsPDF()
    Dim FolderPath As String
    FolderPath = ActiveWorkbook.Path
    Dim tbl As ListObject
    Set tbl = Sheets("Overview").ListObjects("Overview")
    Dim DStot As Long, DS As Long
    DStot = tbl.DataBodyRange.Rows.Count
    
    ' 初始化存储工作表名称的数组，长度匹配表格数据行数
    Dim Printarray() As String
    ReDim Printarray(1 To DStot)
    
    ' 逐行读取表格内的工作表名存入数组，无需额外拼接引号、逗号
    For DS = 1 To DStot
        ' 直接通过ListObject对象读取列数据，不受表格在工作表中的位置变动影响
        Printarray(DS) = tbl.ListColumns(1).DataBodyRange.Cells(DS, 1).Value
    Next DS
    
    ' 弹窗校验数组内容
    MsgBox "待导出工作表：" & vbCrLf & Join(Printarray, vbCrLf)

    ' 数组格式符合要求，直接传入Sheets方法即可，无需再嵌套Array()
    Sheets(Printarray).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\Sales", _
        openafterpublish:=True, ignoreprintareas:=False
   
    Sheets("config").Select
End Sub

• 读取ListObject表格数据时，不建议用Sheets("Overview").Range("A" & DS)的写法，一旦表格上方插入行/列，读取位置会偏移导致取错值，直接通过ListColumns/ListRows属性读取表格内数据稳定性更高。
• 正式导出前可增加工作表存在性校验，遍历数组判断每个名称对应的工作表是否存在，避免因表格内名称写错触发运行时错误。
• 当Printarray本身就是一维字符串数组时，不需要再用Array()函数包裹，直接传入Sheets()方法即可。

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