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

Вход

Регистрация

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

 

= Мир MS Excel/Экспорт в файлы PDF активных листов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт в файлы PDF активных листов (Макросы/Sub)
Экспорт в файлы PDF активных листов
televnoy Дата: Среда, 08.08.2018, 10:23 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 114
Репутация: 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
 
Ответить
СообщениеДоброго времени суток, уважаемые форумчане.
Имеется книга со множеством листов.
На просторах интернета нашел макрос который сохраняет книгу в файлы 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]

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

Автор - televnoy
Дата добавления - 08.08.2018 в 10:23
Karataev Дата: Среда, 08.08.2018, 10:29 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1247
Репутация: 479 ±
Замечаний: 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. Активный лист в книге один. Правильно говорить "выделенные листы".


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
Сообщение[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. Активный лист в книге один. Правильно говорить "выделенные листы".

Автор - Karataev
Дата добавления - 08.08.2018 в 10:29
televnoy Дата: Среда, 08.08.2018, 10:35 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 114
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Karataev, Спасибо, огромное.

Цитата
PS. Активный лист в книге один. Правильно говорить "выделенные листы".
- Приму к сведению :)

Спасибо, еще раз.


О-па! 0_o
 
Ответить
СообщениеKarataev, Спасибо, огромное.

Цитата
PS. Активный лист в книге один. Правильно говорить "выделенные листы".
- Приму к сведению :)

Спасибо, еще раз.

Автор - televnoy
Дата добавления - 08.08.2018 в 10:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт в файлы PDF активных листов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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