Сохранить в 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 и т.д Заранее благодарен, Николай.
Доброго времени, укажите пожалуйста, как поправить макрос: #[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
Новичёкс
Сообщение отредактировал 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2524
Репутация:
678
±
Замечаний:
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]
Здравствуйте. Для первых 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
ЯД-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
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
Tumanovnm , оформите код тегами (кнопка #)
Tumanovnm , оформите код тегами (кнопка #)Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Tumanovnm , оформите код тегами (кнопка #)Автор - Pelena Дата добавления - 24.02.2017 в 09:17
Tumanovnm
Дата: Пятница, 24.02.2017, 10:02 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
Спасибо за отклик! Работает как нужно.
Спасибо за отклик! Работает как нужно. Tumanovnm
Новичёкс
Ответить
Сообщение Спасибо за отклик! Работает как нужно. Автор - Tumanovnm Дата добавления - 24.02.2017 в 10:02
Tumanovnm
Дата: Пятница, 24.02.2017, 12:47 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
Подскажите, что может быть - выдаёт вот такую ошибку
Подскажите, что может быть - выдаёт вот такую ошибку Tumanovnm
Новичёкс
Ответить
Сообщение Подскажите, что может быть - выдаёт вот такую ошибку Автор - Tumanovnm Дата добавления - 24.02.2017 в 12:47
gling
Дата: Пятница, 24.02.2017, 13:05 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2524
Репутация:
678
±
Замечаний:
0% ±
2010
Точно не знаю, но возможно в папке уже есть документ с таким же именем.
Точно не знаю, но возможно в папке уже есть документ с таким же именем. gling
ЯД-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
Новичёкс
Ответить
Сообщение Разобрался, в названии листа был слэш / Автор - Tumanovnm Дата добавления - 24.02.2017 в 13:12
Tumanovnm
Дата: Пятница, 24.02.2017, 13:46 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
gling , подскажите пожалуйста - пишу код - всё работает. Сохраняю файл, открываю заново, нажимаю кнопочку или даже проверяю ее код в режиме разработчика - там пусто. Почему не сохраняется написанный код? Как думаете?
gling , подскажите пожалуйста - пишу код - всё работает. Сохраняю файл, открываю заново, нажимаю кнопочку или даже проверяю ее код в режиме разработчика - там пусто. Почему не сохраняется написанный код? Как думаете?Tumanovnm
Новичёкс
Ответить
Сообщение gling , подскажите пожалуйста - пишу код - всё работает. Сохраняю файл, открываю заново, нажимаю кнопочку или даже проверяю ее код в режиме разработчика - там пусто. Почему не сохраняется написанный код? Как думаете?Автор - Tumanovnm Дата добавления - 24.02.2017 в 13:46
Tumanovnm
Дата: Пятница, 24.02.2017, 14:01 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
gling , Понял. Я сохраняю файл как обычный ексель, а нужно с поддержкой макроса. И тут следующий барьер - у меня 46 листов с одинаковой сводной(скопированной), и теперь, так как изменён формат файла - она не может найти первоисточник - то есть файл в старом формате. Как думаете, возможно изменить путь к новому источнику данных, но так, чтобы при обновлении таблицы на одном листе - как и раньше обновлялись все её клоны?
gling , Понял. Я сохраняю файл как обычный ексель, а нужно с поддержкой макроса. И тут следующий барьер - у меня 46 листов с одинаковой сводной(скопированной), и теперь, так как изменён формат файла - она не может найти первоисточник - то есть файл в старом формате. Как думаете, возможно изменить путь к новому источнику данных, но так, чтобы при обновлении таблицы на одном листе - как и раньше обновлялись все её клоны?Tumanovnm
Новичёкс
Ответить
Сообщение gling , Понял. Я сохраняю файл как обычный ексель, а нужно с поддержкой макроса. И тут следующий барьер - у меня 46 листов с одинаковой сводной(скопированной), и теперь, так как изменён формат файла - она не может найти первоисточник - то есть файл в старом формате. Как думаете, возможно изменить путь к новому источнику данных, но так, чтобы при обновлении таблицы на одном листе - как и раньше обновлялись все её клоны?Автор - Tumanovnm Дата добавления - 24.02.2017 в 14:01
Tumanovnm
Дата: Пятница, 24.02.2017, 14:16 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
По моему заработало. Само. обновил источник только в одном листе.
По моему заработало. Само. обновил источник только в одном листе. Tumanovnm
Новичёкс
Ответить
Сообщение По моему заработало. Само. обновил источник только в одном листе. Автор - 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
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
Tumanovnm , этот вопрос к теме не относится. Создайте новую. И моё замечание в третьем посте так и не исправили. Замечание Вам
Tumanovnm , этот вопрос к теме не относится. Создайте новую. И моё замечание в третьем посте так и не исправили. Замечание ВамPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Tumanovnm , этот вопрос к теме не относится. Создайте новую. И моё замечание в третьем посте так и не исправили. Замечание ВамАвтор - Pelena Дата добавления - 24.02.2017 в 14:26
Tumanovnm
Дата: Пятница, 24.02.2017, 22:22 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
Pelena , Вы меня извините, я не понимаю что Вы написали. Это мой первый опыт. И профессиональный сленг мне не совсем понятен. Я не программист. Постараюсь разобраться в Вашем замечании.
Pelena , Вы меня извините, я не понимаю что Вы написали. Это мой первый опыт. И профессиональный сленг мне не совсем понятен. Я не программист. Постараюсь разобраться в Вашем замечании.Tumanovnm
Новичёкс
Ответить
Сообщение Pelena , Вы меня извините, я не понимаю что Вы написали. Это мой первый опыт. И профессиональный сленг мне не совсем понятен. Я не программист. Постараюсь разобраться в Вашем замечании.Автор - Tumanovnm Дата добавления - 24.02.2017 в 22:22
Pelena
Дата: Пятница, 24.02.2017, 22:31 |
Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
Прочитайте Правила форума. В п.3 сказано Цитата
Обязательно используйте соответствующие теги при оформлении сообщений!
Перейдя по этой ссылке, можно ознакомиться со всеми тегами. В Вашем случае надо было выделить код и нажать кнопку #, о чём я и написала
Прочитайте Правила форума. В п.3 сказано Цитата
Обязательно используйте соответствующие теги при оформлении сообщений!
Перейдя по этой ссылке, можно ознакомиться со всеми тегами. В Вашем случае надо было выделить код и нажать кнопку #, о чём я и написала Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Прочитайте Правила форума. В п.3 сказано Цитата
Обязательно используйте соответствующие теги при оформлении сообщений!
Перейдя по этой ссылке, можно ознакомиться со всеми тегами. В Вашем случае надо было выделить код и нажать кнопку #, о чём я и написала Автор - Pelena Дата добавления - 24.02.2017 в 22:31