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

Question

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

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

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

Answer 1

如果您修改下面的代码，则ActiveSheet将.PDF导出为与ActiveWorkbook相同的文件夹，并在单元格{{1}中定义名称} A1。

ActiveSheet

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