adding date and time to save-as file name VBA

[jardenp]

I'm puzzled by the problem I'm having:

I want to save the current sheet as a PDF with the filename "Receipt YYYY-MM-DD HH:MM.pdf" (That is YEAR-MONTH-DAY HOUR:MINUTE)

I have this working:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "S:\ ...\Receipt " & Format(Now, "yyyy") & "-" & Format(Now, "mm") & "-" & Format(Now, "dd") & " " & Format(Now, "HH") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

but when I try to add the minutes, this doesn't work:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "S:\ ...\Receipt " & Format(Now, "yyyy") & "-" & Format(Now, "mm") & "-" & Format(Now, "dd") & " " & Format(Now, "HH") & ":" & Format(Now, "nn") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Ive experimented with things along the line of

Format(Now, "yyyy-dd-mm hh:nn")

but I always get errors.

Is there a simple way to do this that I'm missing?

Thanks,

JP

 

[jardenp]

OK, so I just learned I can't use the colon in a file name. So, my question then is how to get "YEAR-MONTH-DAY HOUR_MIN". Thanks.

 

[dmt32]

OK, so I just learned I can't use the colon in a file name. So, my question then is how to get "YEAR-MONTH-DAY HOUR_MIN". Thanks.

try this:

Format(Now, "yyyy-mm-dd hh-mm")

 

[jardenp]

Perfect. Thanks!