从单元格值将文件名分配给 pdf

【问题标题】：Assign filename to pdf from cell value从单元格值将文件名分配给 pdf
【发布时间】：2014-11-23 17:47:00
【问题描述】：

我有一个将 excel 文件保存为 PDF 文件的宏：

   Sub PDF()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Report.pdf", _
            OpenAfterPublish:=False
    End Sub

如何将 pdf 名称分配给 excel 中特定单元格中的值？以及如何将保存目录指定为与excel文件所在的位置相同？

【问题讨论】：

标签： excel pdf-generation vba

【解决方案1】：

如果您像下面这样修改您的代码，您的ActiveSheet 将作为.PDF 导出到与ActiveWorkbook 相同的文件夹，并且名称在ActiveSheet 的单元格A1 中定义。

Sub PDF()
    Dim SaveAsStr As String

    SaveAsStr = ActiveWorkbook.Path & "\" & ActiveSheet.Range("A1").Value

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=SaveAsStr & ".pdf", _
        OpenAfterPublish:=False
End Sub

请注意，您可能需要稍微改进此代码，因为如果您在尚未保存的工作簿中运行它（即没有保存 PDF 的有效路径）或者如果单元格带有具有文件名的单元格为空。

【讨论】：