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

Вход

Регистрация

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

 

= Мир MS Excel/При сохранении пдф не могу сделать приписку "мл" - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При сохранении пдф не могу сделать приписку "мл" (Макросы/Sub)
При сохранении пдф не могу сделать приписку "мл"
GerczeG Дата: Среда, 02.08.2017, 06:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Здравствуйте. Снова требуется ваща помощь,

Вот такой код смог написать.

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
Sheets("Спецификация").Select
ActiveSheet.AutoFilter.ApplyFilter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
(ActiveWorkbook.FullName & ".pdf"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("Маршрутный").Select
ActiveSheet.AutoFilter.ApplyFilter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\0-999\200-299\281\Тест\281мл.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
[/vba]

1я часть работает исправно. Делает "повторить данные" и сохраняет в пдф в нужную папку с нужным именем.
А вот 2ю часть не знаю как сделать правильно.
Требуется: открыть лист "маршрутный" нажать повторить(это он делает) и сохранить пдф в текущей папке с текущим именем но припиской "мл" чтоб получилось что то типо 1234мл.
Заранее спасибо.


Сообщение отредактировал Manyasha - Среда, 02.08.2017, 12:17
 
Ответить
СообщениеЗдравствуйте. Снова требуется ваща помощь,

Вот такой код смог написать.

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
Sheets("Спецификация").Select
ActiveSheet.AutoFilter.ApplyFilter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
(ActiveWorkbook.FullName & ".pdf"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("Маршрутный").Select
ActiveSheet.AutoFilter.ApplyFilter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\0-999\200-299\281\Тест\281мл.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
[/vba]

1я часть работает исправно. Делает "повторить данные" и сохраняет в пдф в нужную папку с нужным именем.
А вот 2ю часть не знаю как сделать правильно.
Требуется: открыть лист "маршрутный" нажать повторить(это он делает) и сохранить пдф в текущей папке с текущим именем но припиской "мл" чтоб получилось что то типо 1234мл.
Заранее спасибо.

Автор - GerczeG
Дата добавления - 02.08.2017 в 06:29
GerczeG Дата: Среда, 02.08.2017, 07:07 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Вопрос с текущей папкой и текущим именем решил.)
остался такой момент что к основному имени добовляется еще и расширение .xls как его убрать?
 
Ответить
СообщениеВопрос с текущей папкой и текущим именем решил.)
остался такой момент что к основному имени добовляется еще и расширение .xls как его убрать?

Автор - GerczeG
Дата добавления - 02.08.2017 в 07:07
GerczeG Дата: Среда, 02.08.2017, 07:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Другой вопрос другая тема) По этому вопросу все. по поводу убрать расширения создал новую тему кто может помогите
 
Ответить
СообщениеДругой вопрос другая тема) По этому вопросу все. по поводу убрать расширения создал новую тему кто может помогите

Автор - GerczeG
Дата добавления - 02.08.2017 в 07:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При сохранении пдф не могу сделать приписку "мл" (Макросы/Sub)
Страница 1 из 11
Поиск:

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