How to save a spreadsheet that was converted to a pdf to a file location

[Pookiemeister]

The goal I am trying to achieve is to convert a spreadsheet to a pdf, save the pdf to a specified folder, and email that pdf all with a click of a button. However I am stuck on the second part, saving the new converted pdf to a specified file location. Here's what I have so far, everything works great until the last line of code.

ActiveWorkbook.SaveAs filename:=sPath

I get Runtime error '1004': Application defined or object-defined error.

Private Sub btnSave_Email_Click()
    Dim sPath As String
    Dim sFilename As String
    
    sPath = "C:\Users\UserName\Desktop\Saved PDF TEST\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
    ActiveWorkbook.SaveAs filename:=sPath
    
End Sub

Thank You

 

[Pookiemeister]

Is there a way to add/append a time date stamp after the PDF name followed by ".pdf"
Ex:
CravingFish_7/21/2020_14:11:23.pdf

Without an error message occurring.

Thank you

 

[Trevor G]

You would need to format the date and concatenate the file name, date and time and the file extension. Please also be aware you can't use the forward slashes as they would represent folders that don't exist. Example below.

FileName:= "CravingFish" & Format(Now(),"M-DD-YY H-MM-S")&".PDF"