时间戳

首页 > 解决方案 > 将 Excel 选项卡导出到单独的 PDF 文件 - 跳过第一个 3 个选项卡

vba - 将 Excel 选项卡导出到单独的 PDF 文件 - 跳过第一个 3 个选项卡

问题描述

Excel 中的 VBA 编码新手，并试图弄清楚如何修改我当前的代码（见下文）。它为我的每个选项卡创建一个 PDF，但我只是希望它忽略我工作的第一个 3 个选项卡，只创建从第 4 个选项卡开始的 PDF。我确信定义范围很容易，但无法准确指出如何对其进行编码。

Sub ExportToPDFs()
' PDF Export Macro
' Change C:\Exports\ to your folder path where you need the files saved
' Save Each Worksheet to a separate PDF file.

Dim ws As Worksheet

For Each ws In Worksheets
ws.Select
nm = ws.Name

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

Next ws

End Sub

感谢大家可以提供的任何帮助。

谢谢！

标签： vbaexcelpdf

解决方案

假设您要跳过的工作表是索引 1、2 和 3，您可以使用For循环跳过这些工作表，然后从工作表 4 开始：

Sub exportToPDF()
Dim ws As Worksheet
Dim i As Long
Dim nm As String

For i = 4 To ThisWorkbook.Worksheets.Count
    With ThisWorkbook.Worksheets(i)
        nm = .Name
        .ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:="File Location" & nm & ".pdf", _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
Next i
End Sub

推荐阅读