如何在单个excel单元格中插入多个值并将其导出为该单元格每个条目的pdf

Question

我想在单个单元格中插入多个值并将每个条目导出为单独的 pdf。我唯一知道的就是手动引用单元格并将它们导出为 pdf。这是我的宏：

 Sub SavePDF()
     Range("A8").Value = Range("A8").Value + 1
        Sheet3.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Report_" & _
            ActiveSheet.Range("A8").Value & ".pdf", _
            OpenAfterPublish:=False
    End Sub

假设我有一个范围：M6:M14，我想在单元格“M1”中输入结果。在我启动宏之后，我想为每个值创建一个新的 pdf。示例：对于 M6 的值是一个 pdf，对于 M7 是另一个，依此类推，直到我达到 M14。

Answer 1

请试试这个代码。

Sub SavePDF()

    Dim NameRange As Range
    Dim i As Integer
    Dim PdfName As String

    Set NameRange = Range("M6:M14")

    For i = 1 To NameRange.Cells.Count
        PdfName = Trim(Range("A8").Value) & i
        With Sheet3
            .Range("M1").Value = NameRange.Cells(i).Value
            .ExportAsFixedFormat _
             Type:=xlTypePDF, _
             Filename:="C:\Users\Report_" & PdfName & ".pdf", _
             OpenAfterPublish:=False
        End With
    Next i
End Sub