Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Сен

Экспорт страниц Excel в PDF

Posted by obzor under VBA

Необходимо экспортировать 2 страницы в PDF так, чтобы названия PDF-файлов были взяты из определённых ячеек на каждой из исходных страниц (D3,D7). Пока добился только присвоение имён «Калькуляция» и «Нормирование». Вместо слов (нужны значения) необходимы значения вышеуказанных ячеек исходного файла.

Имеется ли возможность сделать следующее:
Код запускается автоматически перед закрытием книги, а сама книга автоматически сохраняется. При этом полученные PDF отображаются на экране?

EducatedFool

Поместите этот код в модуль книги:

Private Sub Workbook_BeforeClose(Cancel As Boolean) ' срабатывает при закрытии книги

    ' экспортируем листы, записывая в переменные имена создаваемых файлов
    файл1 = ЭкспортЛиста(Sheets("Калькуляция"))
    файл2 = ЭкспортЛиста(Sheets("Нормирование"))

    ThisWorkbook.Save    ' сохраняем книгу перед закрытием

    ' запускаем 1-й файл:
    CreateObject("wscript.shell").Run Chr(34) & файл1 & Chr(34)
    ' запускаем 2-й файл:
    CreateObject("wscript.shell").Run Chr(34) & файл2 & Chr(34)
End Sub

Function ЭкспортЛиста(ByVal Лист As Worksheet) As String
    ' получает в качестве параметра лист для экспорта
    ' возвращает имя созданного файла PDF
    Папка = Replace(Лист.Parent.FullName, Лист.Parent.Name, "")
    ЭкспортЛиста = Папка & Лист.Name & " " & Лист.Range("d3") & " " & Лист.Range("d7") & ".pdf"
    Лист.ExportAsFixedFormat xlTypePDF, ЭкспортЛиста
End Function