Сохранить как PDF и Excel 2016 Копировать в папку и имя файла, созданные из значения ячейки

Итак, я работаю с Excel 2016, я создал шаблон с основным листом (G-Card), а следующие 3 листа получают информацию с первого листа. У меня есть макрос, который позволяет мне сохранять все 4 листа в PDF, создавая папку в определенном месте и сохраняя ее в этой папке с использованием значений ячеек. Мне также удалось сохранить книгу как копию под тем же именем в той же папке, но она говорит, что она не является совместимой или расширением. Единственное расширение, которое, похоже, работает .xlm. Мне нужно сохранить шаблон как PDF-файл и файл Excel в той же папке, в том числе макрос в версии 2016. Помогите пожалуйста .. вот мой код:

Sub NewFolder_SaveasPDF_CLICK() Dim strFilename As String Dim FldrName As String On Error Resume Next Set rngRANGE = Worksheets("G-Card").Range("U3") FldrName = Worksheets("G-Card").Range("O4").Value strFilename = rngRANGE.Value & " " MkDir "Q:\Green Cards & Acknowledgement\Green Cards & Acknowledgement\2017 Orders\" & FldrName Sheets(Array("G-Card", "P-AKG", "W-AKG", "Y-AKG")).Select Sheets("G-Card").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "Q:\Green Cards & Acknowledgement\Green Cards & Acknowledgement\2017 Orders\" & FldrName & "\" & strFilename & Worksheets("G-Card").Range("O4").Value & ".pdf" _ , QUALITY:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True _ Dim ExcelWork As String ExcelWork = strFilename & FldrName ActiveWorkbook.SaveAs FileName:="Q:\Green Cards & Acknowledgement\Green Cards & Acknowledgement\2017 Orders\" & FldrName & "\" & ExcelWork & ".xlm", _ FileFormat:=xlNormal, Password:="", _ WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False End Sub 

Interesting Posts
Давайте будем гением компьютера.