Все привет. Подскажите пожалуйста как доработать макрос експорта PDF
ниже макрос записаный, работает. сохраняет pdf файл рядом с excel, имя pdf в точности как excel при изменении даже имени файла в коде, скрип перестает работать... .
Как сделать запрос на изменение имени файла? или указать имя перед сохранением pdf файла?
Код
Sub pdf()
' pdf Macro
Dim count As Integer
count = Range("vars!D1")
Range("A1:G" & count).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/admin/Downloads/ZODIAC_link v10_1_ANDREJ-+macro-eng_2.pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Selection.Cells(1).Select
MsgBox "PDF file has been created"
End Sub