|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.01.2010, 14:59 | #1 |
Пользователь
Регистрация: 15.12.2008
Сообщений: 31
|
Экспорт в PDF
Уважаемые форумчане, подскажите пожалуйста (голова совсем не варит)
Необходимо экспортировать 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 Вместо слов (нужны значения) необходимы значения вышеуказанных ячеек исходного файла. Заранее благодарен. |
11.01.2010, 15:40 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Попробуйте такой вариант:
Код:
|
11.01.2010, 16:17 | #3 |
Пользователь
Регистрация: 15.12.2008
Сообщений: 31
|
Спасибо! Всё работает!
Имеется ли возможность сделать следующее: Код запускается автоматически перед закрытием книги, а сама книга автоматически сохраняется. При этом полученные PDF отображаются на экране? |
11.01.2010, 17:10 | #4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Код:
|
|
11.01.2010, 17:40 | #5 |
Пользователь
Регистрация: 15.12.2008
Сообщений: 31
|
Спасибо огромное! Всё работает! Супер!
|
15.09.2016, 20:36 | #6 |
Новичок
Джуниор
Регистрация: 15.09.2016
Сообщений: 3
|
Макрос Excel to Pdf
подскажите пожалуйста макрос чтоб один лист под Именем "Письмо" который нужно экспортировался в Pdf и сохранялся под именем Письмо№_____ где номер письма береться из ячейки A3.
|
15.09.2016, 20:41 | #7 | |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Цитата:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
17.09.2016, 13:28 | #8 | |
Новичок
Джуниор
Регистрация: 15.09.2016
Сообщений: 3
|
Цитата:
|
|
18.09.2016, 09:51 | #9 |
Новичок
Джуниор
Регистрация: 15.09.2016
Сообщений: 3
|
Экспорт в pdf
Подскажите пожалуйста. Как соединить эти два макроса.
Код:
Код:
Заранее благодарю. Последний раз редактировалось 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 |