Saving worksheet as pdf with worksheet name and date stamp

Hi All, can someone please assist with the following VBA code. I added the button to save the worksheet as pdf to a specific folder, I would like to add a date stamp to the filename when saving. Exam...

excel

Macros and VBA

HansVogelaar

Sep 01, 2021

Janedb

For example:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\Documents\Sample_" & Format(Now, "yyyymmdd_hhmmss") & ".pdf", _
        OpenAfterPublish:=True
    Application.ScreenUpdating = True
End Sub

Remark: characters such as / and : are not allowed in file names, hence the use of the Format function.

HansVogelaar

MVP

Sep 01, 2021

Janedb

For example:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\Documents\Sample_" & Format(Now, "yyyymmdd_hhmmss") & ".pdf", _
        OpenAfterPublish:=True
    Application.ScreenUpdating = True
End Sub

Remark: characters such as / and : are not allowed in file names, hence the use of the Format function.

Janedb

Iron Contributor

Sep 01, 2021

hans works100% thank you again 🙂

Forum Discussion

Saving worksheet as pdf with worksheet name and date stamp

Resources