Экспорт в файлы PDF активных листов

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Экспорт в файлы PDF активных листов (Макросы/Sub)

televnoy

Дата: Среда, 08.08.2018, 10:23 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток, уважаемые форумчане.
Имеется книга со множеством листов.
На просторах интернета нашел макрос который сохраняет книгу в файлы pdf.
[vba]

Код

Sub SplitSheets5()
    Dim s As Worksheet

    For Each s In ActiveWorkbook.Worksheets
        s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & "\" & s.Name & ".pdf", Type:=xlTypePDF
    Next
End Sub

[/vba]

Задача состоит в том, чтобы сохранение было так же в разные файлы, но только активных листов.

P.S.
На той же странице есть макрос сохранение активных листов в отдельные файлы (разбиение), но у меня не получается что бы тот сохранял в pdf.
[vba]

Код

Sub SplitSheets4()
    Dim CurW As Window
    Dim TempW As Window
    Set CurW = ActiveWindow
    Set TempW = ActiveWorkbook.NewWindow
    CurW.SelectedSheets.Copy
    TempW.Close
End Sub

[/vba]

Помогите пожалуйста.

О-па! 0_o

Сообщение отредактировал televnoy - Среда, 08.08.2018, 10:23

Ответить

Karataev

Дата: Среда, 08.08.2018, 10:29 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1342

Репутация: 535 ±

Замечаний: 0% ±

Excel

[vba]

Код

Sub SplitSheets5()
    Dim s As Worksheet
    For Each s In ActiveWindow.SelectedSheets
        s.ExportAsFixedFormat filename:=ThisWorkbook.Path & "\" & s.Name & ".pdf", Type:=xlTypePDF
    Next
End Sub

[/vba]
PS. Активный лист в книге один. Правильно говорить "выделенные листы".