指定文件名从单元格值
问题描述:
PDF我有一个保存excel文件转换成PDF一个宏:指定文件名从单元格值
Sub PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Report.pdf", _
OpenAfterPublish:=False
End Sub
如何在Excel中的一个特定的细胞指定的PDF名称的价值呢?我怎么确定保存目录与excel文件的位置相同?
答
如果修改类似下面的代码,你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没有有效路径)或如果带有文件名的单元格的单元格为空。
谢谢,这工作得很好。 – 2014-09-29 12:47:40