Добрый вечер. У меня вопрос по поводу макроса, как его написать чтобы он брал имя листа и именовал файл распечатаный в PDF. Каждый лист делаю по отдельности, на форуме посмотрел конретного ответа не нашел. Заранее спасибо.
Код
Sub СохроненияЛиста()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Asus\OneDrive\Рабочий стол\грузовая декл.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Sub СохрАнениеЛистОВ()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
s.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Asus\OneDrive\Рабочий стол\" & s.Name & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next s
End Sub