批量制作具有不同 excel 行的 PDF

Question

我不确定这在 excel 中是否可行，但由于它具有许多强大的功能，我认为可能有办法。
我有一个 Sheet of excel，它有多行数据。
我有 sheet 2 基本上是此数据的可打印版本，但它仅对应于 1 行数据。
有没有办法让我批量保存 Sheet 2 的 PDF，但每个行都不同？例如，A2、B2、C2、D2 包含分布在 Sheet 2 不同部分的某些数据。我想填充它们并另存为 PDF，然后我希望 A3、B3、C3 和 D3 重新-填充字段并覆盖以前的字段并使用新名称（或仅按顺序）保存 PDF。
这可能吗？
我对 Access 中的 VBA 有一点经验，对 Swift 和其他编程语言有一些经验，所以我知道一些基础知识。

Answer 1

实际的解决方案将取决于您的数据是如何暂存的，但作为示例考虑以下数据。

On Sheet 2 将打印区域设置为您希望 PDF 包含的部分。

然后此循环将为在 Sheet 1:

的 A 列中找到的每个 ID 创建一个 PDF

Private Sub exportToPDFLoop()

    Dim rng As Range
    Dim c As Range

    With ThisWorkbook.Sheets("Sheet1")
        Set rng = Intersect(.Range("A:A"), .UsedRange)
    End With

    For Each c In rng

        'Skip Row 1 (headers)
        If c.Row > 1 Then

            With ThisWorkbook.Sheets("Sheet2")

                .Range("B1").Value = c.Value

                .Calculate

                .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    ThisWorkbook.Path & "\testfilename_" & CStr(c.Value) & ".pdf", Quality:= _
                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True

            End With

        End If

    Next c

End Sub

批量制作具有不同 excel 行的 PDF

Batch-making PDFs with different excel rows

excel

ms-office