Create PDF using VBA, referencing a cell with location & Name etc

[Dazzybeeguy]

When I run this it saves to the Location that's in cell Z2 but saved it with filename as FALSE, any ideas what's wrong with my code ???

In cell Z2 it has location with filename at the end which will show current date "C:\Users\me\Documents\File Name 19-01-23.pdf"

Sub Create_Shift_PDF()
'
' Create_Shift_PDF Macro
' Will Save Current Data as a PDF Form
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
saveLocation = Sheets("Shift Brief").Range("z2").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

 

[shinigamilight]

Try this

Sub Create_Shift_PDF()
'
' Create_Shift_PDF Macro
' Will Save Current Data as a PDF Form
'
        Dim wk As Worksheet
        Set wk = ActiveSheet
        wk.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=Sheets("Shift Brief").Range("z2").Value _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

 

[Dazzybeeguy]

Try this

Sub Create_Shift_PDF()
'
' Create_Shift_PDF Macro
' Will Save Current Data as a PDF Form
'
        Dim wk As Worksheet
        Set wk = ActiveSheet
        wk.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=Sheets("Shift Brief").Range("z2").Value _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

Hi, It still saves with filename as of False

 

[shinigamilight]

do you have any value in range("Z2") in sheet shift brief?
Is the path where you're saving file is correct?
Are you sure you're looking at the newer copy of the pdf file instead of an older copy?
This is how it'd look in documents folder

 

[Dazzybeeguy]

do you have any value in range("Z2") in sheet shift brief?
Is the path where you're saving file is correct?
Are you sure you're looking at the newer copy of the pdf file instead of an older copy?
This is how it'd look in documents folder
View attachment 83194

In Z2 it has the location it will be saved to with the name which will include date & time i.e "C:\Users\me\Documents\File Name 19-01-23.pdf

When I run the code I tried it saves it to the given location but filename is FALSE

 

[shinigamilight]

If this doesn't work then idk.

Sub Create_Shift_PDF()
'
' Create_Shift_PDF Macro
' Will Save Current Data as a PDF Form
'
        Dim wk As Worksheet
        Set wk = ActiveSheet
        Dim FilePath As String
        FilePath = Sheets("Shift Brief").Range("z2")
        
        wk.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=FilePath _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
        
End Sub