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

Вход

Регистрация

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

 

= Мир MS Excel/Сохраниние определенных листов книги в пдф в один файл - Мир MS Excel

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

Excel 2010
Добрый день. пожалуйста помогите допилить макрос.
есть книга на каждом листе ячейка индикатор допустим w1.
помогите пожалуйста с помощью макрос сохранять в один файл листы книги у которых ячейка индикатор w1 = 1

В макросах плохо разбираюсь - пока пришел к такому

[vba]
Код
Sub list_v_PDF()
    Dim FileN$
    On Error Resume Next

   Sheets(Array(1, 2, 3)).Select
FileN = ActiveWorkbook.Path & "\" & Left(ActiveSheet.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileN
        
MsgBox "File saved  " & FileN & ".pdf"
End Sub
[/vba]
 
Ответить
СообщениеДобрый день. пожалуйста помогите допилить макрос.
есть книга на каждом листе ячейка индикатор допустим w1.
помогите пожалуйста с помощью макрос сохранять в один файл листы книги у которых ячейка индикатор w1 = 1

В макросах плохо разбираюсь - пока пришел к такому

[vba]
Код
Sub list_v_PDF()
    Dim FileN$
    On Error Resume Next

   Sheets(Array(1, 2, 3)).Select
FileN = ActiveWorkbook.Path & "\" & Left(ActiveSheet.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileN
        
MsgBox "File saved  " & FileN & ".pdf"
End Sub
[/vba]

Автор - fenfen
Дата добавления - 01.07.2016 в 12:35
SLAVICK Дата: Пятница, 01.07.2016, 12:57 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Можно так:
[vba]
Код
Sub dd()
    Dim d As Object, sh As Worksheet, FileN$
    Set d = CreateObject("scripting.dictionary")
    
    For Each sh In ThisWorkbook.Sheets
    If sh.Cells(1, "W") = 1 Then d.Add sh.Index, sh.Name
    Next
    
    Sheets(d.keys).Select
    FileN = ActiveWorkbook.Path & "\" & Left(ActiveSheet.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileN
    MsgBox "File saved  " & FileN & ".pdf"
End Sub
[/vba]


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМожно так:
[vba]
Код
Sub dd()
    Dim d As Object, sh As Worksheet, FileN$
    Set d = CreateObject("scripting.dictionary")
    
    For Each sh In ThisWorkbook.Sheets
    If sh.Cells(1, "W") = 1 Then d.Add sh.Index, sh.Name
    Next
    
    Sheets(d.keys).Select
    FileN = ActiveWorkbook.Path & "\" & Left(ActiveSheet.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileN
    MsgBox "File saved  " & FileN & ".pdf"
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 01.07.2016 в 12:57
fenfen Дата: Пятница, 01.07.2016, 13:26 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Огромное спасибо!
 
Ответить
СообщениеОгромное спасибо!

Автор - fenfen
Дата добавления - 01.07.2016 в 13:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохраниние определенных листов книги в пдф в один файл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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