I am trying to rename a PDF that has been exported from a workbook.

[Mwill15g]

I have the following code in place now but instead of overwriting the pdf in the file location I want to add a date to the name. That way I can go back and see previous file that have been ran before. I am completely green to this so any help or advise would be welcomed.

ChDir "S:\WWWW\To_MdSt"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"S:\WWWW\To_MdSt\XXXX\OOOO", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

 

[BigDawg15]

Try this:

ChDir "S:\WWWW\To_MdSt"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"S:\WWWW\To_MdSt\XXXX\OOOO" & format(Date, " mm-dd-yyyy") & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

 

[Mwill15g]

@BigDawg15 Nailed it! It worked perfect! I have been playing around with this for way too long! Appreciate it! GoVols!

 

[BigDawg15]

Go Vols! That's cute. Lol. Thanks for the feedback.

 

[Mwill15g]

Try this:

ChDir "S:\WWWW\To_MdSt"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"S:\WWWW\To_MdSt\XXXX\OOOO" & format(Date, " mm-dd-yyyy") & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

Try this:

ChDir "S:\WWWW\To_MdSt"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"S:\WWWW\To_MdSt\XXXX\OOOO" & format(Date, " mm-dd-yyyy") & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

Quick question, if I wanted to export it as an excel instead of a PDF what would I need to change?

 

[BigDawg15]

Try:

Sub SaveSheet()
ActiveSheet.Copy
With ActiveSheet.UsedRange
.Copy
.PasteSpecial xlValues
.PasteSpecial xlFormats
End With
Application.CutCopyMode = False
Dim DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
ActiveWorkbook.SaveAs DTAddress & Range("E19") & " " & Format(Date, "mmmmddyyyy") & " " & Format(Time, "HHMM"), FileFormat:= _
xlNormal
End Sub

 

[BigDawg15]

Something like this:

Activesheet.Copy   'creates an independent copy of the activesheet
 
Activeworkbook.SaveAs "C:\SomeFolder\SomeFileName.xls", FileFormat:=xlWorkbookNormal   'save workbook created above
 
Activeworkbook.Close  'close it and return to original workbook