指定文件名從單元格值

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沒有有效路徑）或如果帶有文件名的單元格的單元格爲空。