Создание PDF файла в текущую папку с именем ячейки

Пользователь

Сообщений: 80 Регистрация: 20.02.2016

20.02.2016 04:07:35

Здравствуйте!
Прошу помочь написать макрос который создавал бы из книги Excel файл листа в PDF и обязательно
сохранял в текущую папку в которой запущена Excel книга и название имя PDF файла совпадало с ячейкой A1 активного листа.
Заранее большое спасибо!

Апострофф

Пользователь

Сообщений: 776 Регистрация: 06.04.2015

20.02.2016 07:29:50

Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= THISWORKBOOK.PATH & "\" & [A1] & ".pdf"

askgrupp Пользователь Сообщений: 80 Регистрация: 20.02.2016	#3 20.02.2016 11:25:38 Апострофф Большое вам спасибо! Это то что нужно, работает как часы. Изменено: askgrupp - 12.03.2016 09:26:48

Gjkbfyxbr

Пользователь

Сообщений: 2 Регистрация: 27.04.2017

04.05.2017 10:38:18

Апострофф , прекрасно работает!
Как открыть сохранённый документ для просмотра?
Ник изменил.
Второй вопрос вроде в ту же тему, при сохранении документа логично его сразу открыть для просмотра.

Изменено: Negramotny - 04.05.2017 17:07:50 (замечание модератора)

Юрий М Модератор Сообщений: 61038 Регистрация: 14.09.2012 Контакты см. в профиле	#5 04.05.2017 13:21:31 Gjkbfyxbr, Ваш ник с нарушением наших Правил. Зайдите в свой профиль и исправьте. И второе - вопрос не по теме.

Negramotny

Пользователь

Сообщений: 2 Регистрация: 27.04.2017

22.05.2017 19:44:10

Всё оказалось просто.

Код

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [A8] & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
        
End Sub

Изменено: Negramotny - 22.05.2017 19:49:27