![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 15.12.2008
Сообщений: 31
|
![]()
Уважаемые форумчане, подскажите пожалуйста (голова совсем не варит)
![]() Необходимо экспортировать 2 страницы в PDF так, чтобы названия PDF-файлов были взяты из определённых ячеек на каждой из исходных страниц (D3,D7). Пока добился только присвоение имён "Калькуляция" и "Нормирование". Ниже - имеющийся код. Sub Экспорт() ' ' Экспорт ' Sheets("Калькуляция").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\Калькуляция" (нужны значения)_ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Sheets("Нормирование").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\Нормирование" (нужны значения)_ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True End Sub Вместо слов (нужны значения) необходимы значения вышеуказанных ячеек исходного файла. Заранее благодарен. |
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Попробуйте такой вариант:
Код:
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 15.12.2008
Сообщений: 31
|
![]()
Спасибо! Всё работает!
Имеется ли возможность сделать следующее: Код запускается автоматически перед закрытием книги, а сама книга автоматически сохраняется. При этом полученные PDF отображаются на экране? |
![]() |
![]() |
![]() |
#4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Цитата:
Код:
|
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 15.12.2008
Сообщений: 31
|
![]()
Спасибо огромное! Всё работает! Супер!
|
![]() |
![]() |
![]() |
#6 |
Новичок
Джуниор
Регистрация: 15.09.2016
Сообщений: 3
|
![]()
подскажите пожалуйста макрос чтоб один лист под Именем "Письмо" который нужно экспортировался в Pdf и сохранялся под именем Письмо№_____ где номер письма береться из ячейки A3.
|
![]() |
![]() |
![]() |
#7 | |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]() Цитата:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
![]() |
![]() |
![]() |
#8 | |
Новичок
Джуниор
Регистрация: 15.09.2016
Сообщений: 3
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#9 |
Новичок
Джуниор
Регистрация: 15.09.2016
Сообщений: 3
|
![]()
Подскажите пожалуйста. Как соединить эти два макроса.
Код:
Код:
Заранее благодарю. Последний раз редактировалось Alex11223; 18.09.2016 в 09:53. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Яр|/||< (^_^) | Компоненты Delphi | 4 | 09.07.2009 16:50 | |
mrs.rafanadal | Общие вопросы Delphi | 6 | 12.06.2009 19:44 | |
Экспорт из Access в Excel, Экспорт из отчётов в таблицу Excel | Kissedbythegod | Microsoft Office Access | 1 | 31.05.2008 22:15 |