У меня есть следующий код:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="U:\sales\Quotes test\" & Range("s2").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Он отлично работает, но мне бы хотелось, чтобы он сделал еще несколько вещей, я играл с ним, но я просто не могу он должен работать так, как я хочу, если это вообще возможно!
Я бы хотел сохранить его как файл .xlsm, ТАКЖЕ как PDF-файл, я также хотел бы сохранить его в папке, зависящей от год, месяц и заказчик. например,
U:\sales\quotes test
это будет stati c и всегда будет существовать.
U:\sales\quotes test\2020\May\Customer
(в зависимости от значения ячейки D6 в листе)
Вот и клинкер! Если папка для клиента не существует, я бы хотел, чтобы она сначала создала папку в правильном году и месяце в зависимости от того, когда был создан документ. А затем сохраните версию документа в формате PDF и .xlsm ...
Любая помощь будет принята с благодарностью !!