使用VBA合并除指定工作表外的所有工作表为单个PDF问题排查

一、你的代码存在的三个关键问题 #

1. 路径拼接错误
   saveFolderPath末尾缺少路径分隔符\，导致生成的pdfFilePath变成类似C:\Users\j\DocumentsWorkbookName.pdf的错误路径，文件被保存到了一个不存在的“伪路径”里，自然找不到。
2. 文件名生成错误
   原代码里Left(wb.Name, InStrRev(wb.Name, ".")) & ".pdf"会生成带双重后缀的文件名（比如Book1..pdf），因为InStrRev取到的是扩展名的点，Left会包含这个点。
3. 导出逻辑错误
   循环逐个导出工作表到同一个PDF文件，会导致后面的工作表覆盖前面的内容，最终PDF里只会保留最后一个被导出的工作表，而非合并所有符合条件的表。

二、修正后的完整代码 #

Sub CombineWorksheetsAsPDF()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim saveFolderPath As String
    Dim pdfFileName As String
    Dim wsNamesToExclude As String
    Dim wsNamesArray As Variant
    Dim pdfFilePath As String
    Dim firstSheetSelected As Boolean
    
    saveFolderPath = "C:\Users\j\Documents\" ' 末尾添加\作为路径分隔符
    Application.ScreenUpdating = False
    Set wb = ActiveWorkbook
    
    ' 生成正确的PDF文件名：去掉原工作簿扩展名后加.pdf
    pdfFileName = Left(wb.Name, InStrRev(wb.Name, ".") - 1) & ".pdf"
    wsNamesToExclude = "Raw,Tables"
    wsNamesArray = Split(wsNamesToExclude, ",")
    pdfFilePath = saveFolderPath & pdfFileName
    
    ' 删除已存在的同名PDF
    If Dir(pdfFilePath) <> "" Then
        Kill pdfFilePath
    End If
    
    firstSheetSelected = False
    ' 批量选中所有需要导出的工作表
    For Each ws In wb.Sheets
        If Not IsInArray(ws.Name, wsNamesArray) Then
            If Not firstSheetSelected Then
                ws.Select
                firstSheetSelected = True
            Else
                ws.Select (False) ' 按住Ctrl键追加选中
            End If
        End If
    Next ws
    
    ' 一次性导出所有选中工作表到同一个PDF
    If firstSheetSelected Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=pdfFilePath, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    End If
    
    Application.ScreenUpdating = True
    MsgBox "PDF已保存至: " & pdfFilePath, vbInformation
End Sub

Function IsInArray(ByVal valToBeFound As String, arr As Variant) As Boolean
    Dim element As Variant
    On Error Resume Next
    IsInArray = (UBound(Filter(arr, valToBeFound)) > -1)
    On Error GoTo 0
End Function

三、更简便的实现方式 #

利用反向选择逻辑，直接选中需要导出的工作表，代码更简洁：

Sub SimplifiedCombineToPDF()
    Dim wb As Workbook
    Dim savePath As String
    Dim pdfName As String
    
    Set wb = ActiveWorkbook
    savePath = "C:\Users\j\Documents\"
    ' 根据你的工作簿扩展名调整（比如.xlsx/.xlsb）
    pdfName = Replace(wb.Name, ".xlsm", ".pdf")
    
    ' 反向选择：先选中要排除的表，再取反选中剩余所有表
    wb.Sheets(Array("Raw", "Tables")).Select False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=savePath & pdfName, _
        Quality:=xlQualityStandard
    
    MsgBox "PDF导出完成，路径：" & savePath & pdfName, vbInformation
End Sub

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