Konstantine (Автор тем)

Сохранение необходимых листов книги в один PDF-файл

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

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

10.05.2017 15:50:38

В Архиве нашел тему с описанием реализации сохранения листов в один PDF-файл. По образу и подобию сделал в своем проекте. Все работало, пока не понадобилось формировать файл из большого количестви листов. В чем может быть проблема? В массиве, в его размерности?

Код

Код

Sheets(Array("титул БП", "прот4 БП", "паспорт-протокол2ттБП", "СЕ308", "АФормТТ1", "АФормТТ2", "ВФормТТ1", "ВФормТТ2", "СФормТТ1", "СФормТТ2", "УСПД1", "УСПД2", "УСПД3", "УСПД4")).Select 
Sheets("титул БП").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    folder_1$ & "АКТ ТО ТехУчет БП № " & ActiveWorkbook.ActiveSheet.[I9], Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Перейти

Сохранение файла PDF в папку

Konstantine

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

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

25.02.2017 22:54:35

Добрый день!

Перерыл интернет, не могу решить проблему. Прошу Вашей помощи!

В результате выполнения макроса, сохраняются листы в ПДФ-файл не в указанную папку, а на папку ранее.
Часть кода:

Код

ActiveWorkbook.Save
                Sheets(Array("АКТ", "титул", "прот4", "паспорт-протокол", "СЕ308", "АФормТТ1", "АФормТТ2", "BФормТТ1", "BФормТТ2", "CФормТТ1", "CФормТТ2")).Select
                Sheets("АКТ").Activate
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "АКТ ТО ТехУчет № " & ActiveWorkbook.ActiveSheet.[J10], Quality:= _
                xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=True

Перейти