Excel sheet save as pdf in specific folder vba macro

Описание: Sub Save_PDF ()



Sheets("Sheet1").Select

Dim filename As String
Dim ChDir As String




filename = Range("A1")

ChDir = "C:\Users\AntoJ\Documents\Test\"

Sheets("Sheet1").Range("a1:d20").ExportAsFixedFormat Type:=xlTypePDF, filename:= _
ChDir & filename & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

End Sub