excel - VBA 将多个 Excel 工作表导出为一个 PDF 文件

Question

我有几张要导出到一个 PDF 中的工作表，同时保留单个工作表编号。我看过类似的帖子，但还没有得到它的工作。我遇到的最接近的代码不保留单个工作表编号（工作表 1：第 1 页，共 8 页...，工作表 2：第 1 页，共 2...）是这样的：

Public Sub Save_Sheets_As_PDF()

    Dim saveInFolder As String
    Dim replaceSelected As Boolean
    Dim ws As Worksheet
    Dim excludeSheets As String

    excludeSheets = "|abc|def|ghi|"        'The sheet names to exclude delimited by "|"

    saveInFolder = ThisWorkbook.Path
    If Right(saveInFolder, 1) <> "\" Then saveInFolder = saveInFolder & "\"

    With ThisWorkbook

        replaceSelected = True
        For Each ws In .Worksheets
            If InStr(excludeSheets, "|" & ws.Name & "|") = 0 Then
                ws.Select replaceSelected
                replaceSelected = False
            End If
        Next

        .ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveInFolder & "Sheets.pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        .Worksheets(1).Select True

    End With

End Sub

我是 VBA 新手，所以我的编码知识有点有限

标签： excelvbapdf