Страницы: 1
RSS
Export to PDF через VBA, Доработать скрипт експорта PDF
 
Все привет.
Подскажите пожалуйста как доработать макрос експорта PDF

ниже макрос записаный, работает. сохраняет pdf файл рядом с excel, имя pdf в точности как excel
при изменении даже имени файла в коде, скрип перестает работать... . :cry:

Как сделать запрос на изменение имени файла? или указать имя перед сохранением 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
Изменено: Vladusjon - 16.07.2018 01:29:12
Страницы: 1
Наверх