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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранить в PDF нужные листы в отдельные файлы - Мир MS Excel

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

Excel 2016
Доброго времени, укажите пожалуйста, как поправить макрос:

#[vba]
Код
Private Sub CommandButton1_Click()
#Dim s As Worksheet

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

Чтобы сохранялись в PDF не все листы из рабочей книги, а только например первые 6, или лист1, лист2 и т.д

Заранее благодарен, Николай.

Новичёкс

Сообщение отредактировал Tumanovnm - Пятница, 24.02.2017, 22:55
 
Ответить
СообщениеДоброго времени, укажите пожалуйста, как поправить макрос:

#[vba]
Код
Private Sub CommandButton1_Click()
#Dim s As Worksheet

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

Чтобы сохранялись в PDF не все листы из рабочей книги, а только например первые 6, или лист1, лист2 и т.д

Заранее благодарен, Николай.
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 00:12
gling Дата: Пятница, 24.02.2017, 06:11 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация: 674 ±
Замечаний: 0% ±

2010
Здравствуйте. Для первых 6 листов попробуйте так[vba]
Код
Dim s As Long
For s = 1 To 6
Sheets(s).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets(s).Name & ".pdf"
Next
[/vba]Дли выборочного сохранения, назначайте "s" в какой нибудь ячейке. Типа [vba]
Код
For s = Range(X).Value To Range(Y).Value
[/vba]

ЯД-41001506838083

Сообщение отредактировал gling - Пятница, 24.02.2017, 11:08
 
Ответить
СообщениеЗдравствуйте. Для первых 6 листов попробуйте так[vba]
Код
Dim s As Long
For s = 1 To 6
Sheets(s).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets(s).Name & ".pdf"
Next
[/vba]Дли выборочного сохранения, назначайте "s" в какой нибудь ячейке. Типа [vba]
Код
For s = Range(X).Value To Range(Y).Value
[/vba]
Автор - gling
Дата добавления - 24.02.2017 в 06:11
Pelena Дата: Пятница, 24.02.2017, 09:17 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Tumanovnm, оформите код тегами (кнопка #)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеTumanovnm, оформите код тегами (кнопка #)
Автор - Pelena
Дата добавления - 24.02.2017 в 09:17
Tumanovnm Дата: Пятница, 24.02.2017, 10:02 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Спасибо за отклик! Работает как нужно.
hands B)

Новичёкс
 
Ответить
СообщениеСпасибо за отклик! Работает как нужно.
hands B)
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 10:02
Tumanovnm Дата: Пятница, 24.02.2017, 12:47 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Подскажите, что может быть - выдаёт вот такую ошибку
К сообщению приложен файл: 3689455.png (72.0 Kb)

Новичёкс
 
Ответить
СообщениеПодскажите, что может быть - выдаёт вот такую ошибку
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 12:47
gling Дата: Пятница, 24.02.2017, 13:05 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация: 674 ±
Замечаний: 0% ±

2010
Точно не знаю, но возможно в папке уже есть документ с таким же именем.

ЯД-41001506838083

Сообщение отредактировал gling - Пятница, 24.02.2017, 13:06
 
Ответить
СообщениеТочно не знаю, но возможно в папке уже есть документ с таким же именем.
Автор - gling
Дата добавления - 24.02.2017 в 13:05
Tumanovnm Дата: Пятница, 24.02.2017, 13:12 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Разобрался, в названии листа был слэш /

Новичёкс
 
Ответить
СообщениеРазобрался, в названии листа был слэш /
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 13:12
Tumanovnm Дата: Пятница, 24.02.2017, 13:46 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
gling, подскажите пожалуйста - пишу код - всё работает.
Сохраняю файл, открываю заново, нажимаю кнопочку или даже проверяю ее код в режиме разработчика - там пусто.
Почему не сохраняется написанный код? Как думаете?

Новичёкс
 
Ответить
Сообщениеgling, подскажите пожалуйста - пишу код - всё работает.
Сохраняю файл, открываю заново, нажимаю кнопочку или даже проверяю ее код в режиме разработчика - там пусто.
Почему не сохраняется написанный код? Как думаете?
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 13:46
Tumanovnm Дата: Пятница, 24.02.2017, 14:01 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
gling, Понял. Я сохраняю файл как обычный ексель, а нужно с поддержкой макроса.
И тут следующий барьер :) - у меня 46 листов с одинаковой сводной(скопированной), и теперь, так как изменён формат файла - она не может найти первоисточник - то есть файл в старом формате.
Как думаете, возможно изменить путь к новому источнику данных, но так, чтобы при обновлении таблицы на одном листе - как и раньше обновлялись все её клоны?

Новичёкс
 
Ответить
Сообщениеgling, Понял. Я сохраняю файл как обычный ексель, а нужно с поддержкой макроса.
И тут следующий барьер :) - у меня 46 листов с одинаковой сводной(скопированной), и теперь, так как изменён формат файла - она не может найти первоисточник - то есть файл в старом формате.
Как думаете, возможно изменить путь к новому источнику данных, но так, чтобы при обновлении таблицы на одном листе - как и раньше обновлялись все её клоны?
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 14:01
Tumanovnm Дата: Пятница, 24.02.2017, 14:16 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
По моему заработало. Само. обновил источник только в одном листе.

Новичёкс
 
Ответить
СообщениеПо моему заработало. Само. обновил источник только в одном листе.
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 14:16
Tumanovnm Дата: Пятница, 24.02.2017, 14:18 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Нет, не работает

Новичёкс
 
Ответить
СообщениеНет, не работает
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 14:18
Pelena Дата: Пятница, 24.02.2017, 14:26 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Tumanovnm, этот вопрос к теме не относится. Создайте новую.
И моё замечание в третьем посте так и не исправили. Замечание Вам

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеTumanovnm, этот вопрос к теме не относится. Создайте новую.
И моё замечание в третьем посте так и не исправили. Замечание Вам
Автор - Pelena
Дата добавления - 24.02.2017 в 14:26
Tumanovnm Дата: Пятница, 24.02.2017, 22:22 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Pelena, Вы меня извините, я не понимаю что Вы написали. Это мой первый опыт. И профессиональный сленг мне не совсем понятен. Я не программист. Постараюсь разобраться в Вашем замечании.

Новичёкс
 
Ответить
СообщениеPelena, Вы меня извините, я не понимаю что Вы написали. Это мой первый опыт. И профессиональный сленг мне не совсем понятен. Я не программист. Постараюсь разобраться в Вашем замечании.
Автор - Tumanovnm
Дата добавления - 24.02.2017 в 22:22
Pelena Дата: Пятница, 24.02.2017, 22:31 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Прочитайте Правила форума. В п.3 сказано
Цитата
Обязательно используйте соответствующие теги при оформлении сообщений!
Перейдя по этой ссылке, можно ознакомиться со всеми тегами. В Вашем случае надо было выделить код и нажать кнопку #, о чём я и написала

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПрочитайте Правила форума. В п.3 сказано
Цитата
Обязательно используйте соответствующие теги при оформлении сообщений!
Перейдя по этой ссылке, можно ознакомиться со всеми тегами. В Вашем случае надо было выделить код и нажать кнопку #, о чём я и написала
Автор - Pelena
Дата добавления - 24.02.2017 в 22:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить в PDF нужные листы в отдельные файлы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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