指定文件名从单元格值

Question

PDF我有一个保存excel文件转换成PDF一个宏：

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

如何在Excel中的一个特定的细胞指定的PDF名称的价值呢？我怎么确定保存目录与excel文件的位置相同？

Answer 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没有有效路径）或如果带有文件名的单元格的单元格为空。