Добрый день!
Перерыл интернет, не могу решить проблему. Прошу Вашей помощи!
В результате выполнения макроса, сохраняются листы в ПДФ-файл не в указанную папку, а на папку ранее.
Часть кода:
Перерыл интернет, не могу решить проблему. Прошу Вашей помощи!
В результате выполнения макроса, сохраняются листы в ПДФ-файл не в указанную папку, а на папку ранее.
Часть кода:
Код |
---|
ActiveWorkbook.Save Sheets(Array("АКТ", "титул", "прот4", "паспорт-протокол", "СЕ308", "АФормТТ1", "АФормТТ2", "BФормТТ1", "BФормТТ2", "CФормТТ1", "CФормТТ2")).Select Sheets("АКТ").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "АКТ ТО ТехУчет № " & ActiveWorkbook.ActiveSheet.[J10], Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True |