При сохранении пдф не могу сделать приписку "мл"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир 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мл.
Заранее спасибо.