能否修改此VBA代码实现按指定工作表列表生成多个PDF文件？

当然可以！我帮你调整代码，让它能从指定的工作表名称列表里，逐个导出对应的PDF文件。先看调整后的完整可运行代码，再给你拆解关键改动：

Sub ExportSheetsToPDF()
    Dim wsList As Worksheet
    Dim sheetNameRange As Range
    Dim cell As Range
    Dim targetSheet As Worksheet
    Dim savePath As String
    
    ' 设置保存PDF的路径（可以改成你需要的路径，注意末尾加反斜杠）
    savePath = "C:\Your\Save\Path\"
    
    ' 指定存储工作表名称的工作表（这里是"Consolidated"）
    Set wsList = ThisWorkbook.Sheets("Consolidated")
    
    ' 指定工作表名称所在的范围（比如A1到A3，你可以根据实际修改）
    Set sheetNameRange = wsList.Range("A1:A3")
    
    ' 遍历每个单元格里的工作表名称
    For Each cell In sheetNameRange
        ' 跳过空单元格
        If Trim(cell.Value) <> "" Then
            On Error Resume Next
            Set targetSheet = ThisWorkbook.Sheets(cell.Value)
            On Error GoTo 0
            
            ' 检查工作表是否存在
            If Not targetSheet Is Nothing Then
                ' 导出为PDF，文件名用工作表名称
                targetSheet.ExportAsFixedFormat _
                    Type:=xlTypePDF, _
                    Filename:=savePath & targetSheet.Name & ".pdf", _
                    Quality:=xlQualityStandard
                Debug.Print "已导出：" & targetSheet.Name & ".pdf"
            Else
                MsgBox "工作表 '" & cell.Value & "' 不存在，请检查！", vbExclamation
            End If
        End If
    Next cell
    
    MsgBox "批量导出完成！", vbInformation
End Sub

关键改动说明： #

• 更灵活的工作表名称范围：原代码里Cells(x,x)的取值方式比较局限，改成了连续的单元格范围（比如A1:A3），你可以根据实际列表位置修改这个范围
• 明确的保存路径：新增了savePath变量，你可以直接修改成自己需要的PDF存储目录
• 优化的错误处理：合理使用On Error Resume Next检查工作表是否存在，避免无意义的错误抛出
• 清晰的导出逻辑：每个存在的工作表都会以自身名称为文件名导出到指定路径，同时在调试窗口打印导出状态，方便排查问题
• 空值跳过：自动忽略列表里的空单元格，避免无效操作

使用注意事项： #

1. 确保savePath对应的文件夹已经存在，否则会导出失败
2. 如果你的工作表名称列表不是A1:A3，记得修改sheetNameRange的范围
3. 运行代码前最好保存一下工作簿，避免意外情况

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