Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранить определенный лист excel в PDF - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить определенный лист excel в PDF (Макросы/Sub)
Сохранить определенный лист excel в PDF
YH96 Дата: Вторник, 13.08.2019, 17:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, помогите написать макрос.
Есть книга в которой есть листы с данными, надо сохранить в формате PDF макросом только один определённый лист. задать папку сохранения и имя сохраняемого файла.
Спасибо за помощь.
К сообщению приложен файл: test.xlsx (9.8 Kb)


Сообщение отредактировал YH96 - Вторник, 13.08.2019, 17:46
 
Ответить
СообщениеЗдравствуйте, помогите написать макрос.
Есть книга в которой есть листы с данными, надо сохранить в формате PDF макросом только один определённый лист. задать папку сохранения и имя сохраняемого файла.
Спасибо за помощь.
Автор - YH96
Дата добавления - 13.08.2019 в 17:41
Pelena Дата: Вторник, 13.08.2019, 21:43 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Так подойдёт?
[vba]
Код
Sub Макрос1()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Application.GetSaveAsFilename, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
[/vba]
К сообщению приложен файл: test-5-.xlsm (18.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТак подойдёт?
[vba]
Код
Sub Макрос1()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Application.GetSaveAsFilename, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
[/vba]
Автор - Pelena
Дата добавления - 13.08.2019 в 21:43
YH96 Дата: Среда, 14.08.2019, 12:51 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, ДА!!! Просто супер!!!
спасибо огромное! hands yes

P.S. Макрос работает идеально, но почему то при сохранении в PDF формате имя файла получается с точкой. На пример при сохранении пишу название файла "СчётФактура-1" и должно получиться название файла СчётФактура-1.pdf , а получаеться СчётФактура-1..pdf
Появляется лишняя точка в названии файла


Сообщение отредактировал YH96 - Среда, 14.08.2019, 13:00
 
Ответить
СообщениеPelena, ДА!!! Просто супер!!!
спасибо огромное! hands yes

P.S. Макрос работает идеально, но почему то при сохранении в PDF формате имя файла получается с точкой. На пример при сохранении пишу название файла "СчётФактура-1" и должно получиться название файла СчётФактура-1.pdf , а получаеться СчётФактура-1..pdf
Появляется лишняя точка в названии файла
Автор - YH96
Дата добавления - 14.08.2019 в 12:51
Pelena Дата: Среда, 14.08.2019, 14:09 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Попробуйте так
[vba]
Код
Sub Макрос1()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Application.GetSaveAsFilename(FileFilter:="файл PDF, *.pdf"), Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПопробуйте так
[vba]
Код
Sub Макрос1()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Application.GetSaveAsFilename(FileFilter:="файл PDF, *.pdf"), Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
[/vba]
Автор - Pelena
Дата добавления - 14.08.2019 в 14:09
YH96 Дата: Среда, 14.08.2019, 17:05 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Спасибо, теперь все отлично hands
 
Ответить
СообщениеPelena, Спасибо, теперь все отлично hands
Автор - YH96
Дата добавления - 14.08.2019 в 17:05
YH96 Дата: Вторник, 24.09.2019, 10:08 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, макрос работает отлично, НО, размер сохраненого PDF увеличился в 3 раза! Раньше ( при сохранении в ручную) размер был 200-250кб, а при сохранении при помощи макроса размер стал 800-850кб.
Можно это как то поправить, что б размер был меньше?
 
Ответить
СообщениеPelena, макрос работает отлично, НО, размер сохраненого PDF увеличился в 3 раза! Раньше ( при сохранении в ручную) размер был 200-250кб, а при сохранении при помощи макроса размер стал 800-850кб.
Можно это как то поправить, что б размер был меньше?
Автор - YH96
Дата добавления - 24.09.2019 в 10:08
Alex_ST Дата: Пятница, 27.09.2019, 12:50 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
А как Вы сохраняли "в ручную"? Просто печатали на PDF-принтер?
Ну так запишите макрорекордером свои действия и уберите мусор из текста полученного макроса :D


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеА как Вы сохраняли "в ручную"? Просто печатали на PDF-принтер?
Ну так запишите макрорекордером свои действия и уберите мусор из текста полученного макроса :D
Автор - Alex_ST
Дата добавления - 27.09.2019 в 12:50
YH96 Дата: Вторник, 25.08.2020, 17:11 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, ЗДРАВСТВУЙТЕ. Макрос хорошо работал до сегоднешнего дня. %)
С сегоднешнего дня при нажатии на кнопку макроса (ни каких изменений в кнопку, сам макрос я не вносил) открываеться папка куда я сохраняю будущий PDF фаил, ввожу в "ручную" название файла и нажимаю "Сохранить". После этого самопроизвольно закрываеться EXСEL, через несколько сукунд открывается по новой. РDF фаил не сохраняется.
Если не вводить название файла и сразу нажать "Отменить", то РDF фаил сохраняеться в указаной папке и название его FALSE. При этом EXСEL не закрываеться и работает нормально.
подскажите в чем проблема?

Можно ли сразу из макроса задавать название файла? На пример: SNVxxxxx - вместо xxxxx подгружались бы данные из определенной ячейки.

[vba]
Код
Sub Макрос1()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.GetSaveAsFilename(FileFilter:="файл PDF, *.pdf"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
[/vba]


Сообщение отредактировал YH96 - Вторник, 25.08.2020, 17:39
 
Ответить
СообщениеPelena, ЗДРАВСТВУЙТЕ. Макрос хорошо работал до сегоднешнего дня. %)
С сегоднешнего дня при нажатии на кнопку макроса (ни каких изменений в кнопку, сам макрос я не вносил) открываеться папка куда я сохраняю будущий PDF фаил, ввожу в "ручную" название файла и нажимаю "Сохранить". После этого самопроизвольно закрываеться EXСEL, через несколько сукунд открывается по новой. РDF фаил не сохраняется.
Если не вводить название файла и сразу нажать "Отменить", то РDF фаил сохраняеться в указаной папке и название его FALSE. При этом EXСEL не закрываеться и работает нормально.
подскажите в чем проблема?

Можно ли сразу из макроса задавать название файла? На пример: SNVxxxxx - вместо xxxxx подгружались бы данные из определенной ячейки.

[vba]
Код
Sub Макрос1()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.GetSaveAsFilename(FileFilter:="файл PDF, *.pdf"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
[/vba]
Автор - YH96
Дата добавления - 25.08.2020 в 17:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить определенный лист excel в PDF (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!